On Sat, Feb 18, 2012 at 12:25 AM, Shawn H Corey <shawnhco...@gmail.com> wrote:
> On 12-02-17 10:32 AM, lina wrote:
>>
>> #!/usr/bin/perl
>>
>> use warnings;
>> use strict;
>>
>> open FILE, "<try.xpm" or die $!;
>>
>> my @line =<FILE>;
>>
>> while (<FILE>) {
>> print $_;
>> }
>>
>> strangely it print me nothing out,
>
>
> Try:
>
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
>
> # place the file name in a variable
> # so that it can be easier changed later
> my $file = "try.xpm";
>
> # open with a lexically-scoped file handle
> # to avoid name collisions with other file handles
> open my $fh, '<', $file or die "could not open $file: $!\n";
Here why use $!
?
Thanks
>
> # read each line into a appropriately named variable
> while( my $xpm_line = <$fh> ){
>
> # for demo purposes; this will be replaced later with more code
> print $xpm_line;
>
> } # end while <$fh>
>
> __END__
>
> --
> Just my 0.00000002 million dollars worth,
> Shawn
>
> Programming is as much about organization and communication
> as it is about coding.
>
> It's Mutual Aid, not fierce competition, that's the dominate
> force of evolution. Of course, anyone who has worked in
> open source already knows this.
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
