Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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

Comment on Re: Need help appending to a user defined file
Download Code

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 contemplating the Monastery: (7)
As of 2015-12-01 01:26 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (791 votes), past polls