On Sat, Dec 05, 2009 at 04:46:38PM +0530, Parag Kalra wrote:
> Hello All,
>
> This code is working:
>
> #!/usr/bin/perl
> > 2 my @column_names=(A..ZZ);
> > 3 for(my $i=0; $i<26; $i=$i+1) {
> > 4 my $tmp_file = "$column_names[$i]".".out";
> > 5 open $i, ">column_names/$tmp_file" or die "Could not create the
> > file - $tmp_file \n";
> > 6 print $i "This is working\n";
> > 7 close $i or die "Could not close the file - $i\n";
> > 8 }
> >
>
> But this code is not working:
>
> #!/usr/bin/perl
> > my @column_names=(A..ZZ);
> > for(my $i=0; $i<26; $i=$i+1) {
> > my $tmp_file = "$column_names[$i]".".out";
> > open $column_names[$i], ">column_names/$tmp_file" or die "Could not
> > create the file - $tmp_file \n";
> > print $column_names[$i] "This is not working\n";
> > close $column_names[$i] or die "Could not close the file -
> > $tmp_file\n";
> > }
> >
>
> I am getting following error:
>
> (Missing operator before "This is not working\n"?)
> > syntax error at test1.pl line 6, near "] "This is not working\n""
> > Execution of test1.pl aborted due to compilation errors.
> >
>
> Although its not recommended to use bare-words for file handlers but they at
> least work, so why are they not working in second code.
perldoc -f print
and in perticular, the last few lines.
--
Paul Johnson - [email protected]
http://www.pjcj.net
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
