Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2017-09-21 05:53 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (242 votes). Check out past polls.