Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Need help appending to a user defined file

by toolic (Bishop)
on Sep 19, 2012 at 20:06 UTC ( #994521=note: print w/ replies, xml ) Need Help??

in reply to Need help appending to a user defined file

You want to open a filehandle, not an array of file names. You should print to a file handle, not to STDOUT.
use warnings; use strict; my $file2 = '/tmp/foo'; print "Enter filename to search\n"; chomp( my $file = <STDIN> ); if ( -e $file ) { die "File already Exists!\n"; } unless ( -e $file ) { my @appfiles = glob "*"; open my $fh, '>>', $file2 or die $!; print $fh "List of all the files in the directory:\n"; print $fh "@appfiles\n"; close $fh; }

See also the Basic debugging checklist

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://994521]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2016-06-25 10:35 GMT
Find Nodes?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...

    Results (325 votes). Check out past polls.