The following script print some characters.
how to print the characters to file ( for example /var/tmp/file )
Yael
#!/usr/bin/perl
@myNames = ('one', 'two', 'three' , 'A' , 'B' , 'C' , 'D' , 'E');
foreach (@myNames) {
print "$_\n";
}
views:
88answers:
5
A:
#!/usr/bin/perl
@myNames = ('one', 'two', 'three' , 'A' , 'B' , 'C' , 'D' , 'E');
open(OUT,">","/var/tmp/file") or die "Could not open the output file: $!";
foreach (@myNames) {
print OUT "$_\n";
}
close(OUT);
Vijey
2010-07-14 16:12:30
THXin which cases we can get the "Could not open the output file"Yael
yael
2010-07-14 16:27:16
One reason could be the target output file might be locked by some other process. In such cases, the program gets terminated with this error message
Vijey
2010-07-14 16:35:12
@yael: when there's an error.
ysth
2010-07-14 16:35:52
Use lexical filehandles, not globals. And you are missing `use strict; use warnings;`.
Ether
2010-07-14 17:30:30
+2
A:
When you run the script, you can simply redirect the output to a file:
$ ./myscript.pl > /var/tmp/file
orangeoctopus
2010-07-14 16:13:00
A:
open(FILE, ">/var/tmp/file") || die "File not found";
print FILE @myNames;
close(FILE);
Erik
2010-07-14 16:13:29
it wasn't me, but probably because you used a bareword file handle rather than a lexical, and you are not using the three argument open. `open my $file, '>', '/var/tmp/file' or die "error opening file: $!";`
Eric Strom
2010-07-14 21:33:25
well, as long as this example is still in the official perldoc (Perl 5 version 12.1 documentation: http://perldoc.perl.org/ ), there is nothing wrong with it I think. So who ever is playing around with negative votes seems to be a know-it-all, that isn't able to read the official documentation.
Erik
2010-07-15 07:04:26
A:
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use autodie qw(:all);
my @names = qw(one two three A B C D E);
{
open my $fh, '>', '/var/tmp/file';
foreach (@names) {
print {$fh} "$_\n";
}
}
daxim
2010-07-14 19:01:26