develooper Front page | perl.perl5.porters | Postings from June 2008

[perl #5246] This is fixed...

From:
renee.baecker
Date:
June 7, 2008 12:02
Subject:
[perl #5246] This is fixed...
Message ID:
20080607190240.95CD399C0C7@rserv16.sitepush.net
Tested with Perl 5.8.8:

reneeb@reneeb-desktop:~/bugs$ cat test.txt
this is a
test file
reneeb@reneeb-desktop:~/bugs$ cat 5246.pl
#!/usr/bin/perl

use strict;
use warnings;

my $file = 'test.txt';
$/ = undef;
open my $fh, '<', $file or die $!;
while( <$fh> ){
  print ">>$_<<\n";
}

reneeb@reneeb-desktop:~/bugs$ perl 5246.pl
>>this is a
test file
<<
reneeb@reneeb-desktop:~/bugs$

Cheers,
Renee
---

renee.baecker@smart-websolutions.de

Smart-Websolutions André Windolph und Renée Bäcker GbR
Maria-Montessori-Str. 13
64584 Biebesheim

USt.-ID: DE 228 935 695

Telefon: 01803 - 278 25 51 98 (9 cent/Minute)
E-Mail: info@smart-websolutions.de

Perl-Magazin: http://foo-magazin.de
Perl-Nachrichten: http://perl-nachrichten.de






nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About