diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2013-07-23 21:25:07 -0700 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2013-07-23 21:25:54 -0700 |
| commit | d49b925c4503afd088a0908f719e6586b73ec8a0 (patch) | |
| tree | edeee539c2c7bc069d4a1983862477ac3b0ab458 /pod/perlopentut.pod | |
| parent | 375c68c12de14315585c39eb3b2cbd2213a9a36e (diff) | |
| download | perl-d49b925c4503afd088a0908f719e6586b73ec8a0.tar.gz | |
perlopentut: standardize on no newline in die
it is nice to know from where an error originates!
Diffstat (limited to 'pod/perlopentut.pod')
| -rw-r--r-- | pod/perlopentut.pod | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/pod/perlopentut.pod b/pod/perlopentut.pod index 5c5982e2c2..8caef9a67e 100644 --- a/pod/perlopentut.pod +++ b/pod/perlopentut.pod @@ -80,7 +80,7 @@ read-only mode like this: my $handle = undef; # this will be filled in on success open($handle, "< $encoding", $filename) - || die "$0: can't open $filename for reading: $!\n"; + || die "$0: can't open $filename for reading: $!"; As with the shell, in Perl the C<< "<" >> is used to open the file in read-only mode. If it succeeds, Perl allocates a brand new filehandle for @@ -131,7 +131,7 @@ Once you've done that, you can safely omit the encoding part of the open mode: open($handle, "<", $filename) - || die "$0: can't open $filename for reading: $!\n"; + || die "$0: can't open $filename for reading: $!"; But never use the bare C<< "<" >> without having set up a default encoding first. Otherwise, Perl cannot know which of the many, many, many possible @@ -157,7 +157,7 @@ already exist. my $encoding = ":encoding(UTF-8)"; open($handle, ">> $encoding", $filename) - || die "$0: can't open $filename for appending: $!\n"; + || die "$0: can't open $filename for appending: $!"; Now you can write to that filehandle using any of C<print>, C<printf>, C<say>, C<write>, or C<syswrite>. @@ -176,7 +176,7 @@ in write-only mode: my $encoding = ":encoding(UTF-8)"; open($handle, "> $encoding", $filename) - || die "$0: can't open $filename in write-open mode: $!\n"; + || die "$0: can't open $filename in write-open mode: $!"; Here again Perl works just like the shell in that the C<< ">" >> clobbers an existing file. @@ -203,13 +203,13 @@ And then open as before, choosing C<<< "<" >>>, C<<< ">>" >>>, or C<<< ">" >>> as needed: open($handle, "< $encoding", $filename) - || die "$0: can't open $filename for reading: $!\n"; + || die "$0: can't open $filename for reading: $!"; open($handle, ">> $encoding", $filename) - || die "$0: can't open $filename for appending: $!\n"; + || die "$0: can't open $filename for appending: $!"; open($handle, "> $encoding", $filename) - || die "$0: can't open $filename in write-open mode: $!\n"; + || die "$0: can't open $filename in write-open mode: $!"; Alternately, you can change to binary mode on an existing handle this way: |