Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: appending file name

by marinersk (Priest)
on Jul 17, 2013 at 16:07 UTC ( #1044856=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    open($fi,">", $fff) or die "Open failed for $fff: $!";
    
    __END__
    
  2. or download this
    C:\Steve\Dev\PerlMonks\P-2013-07-17@0950-Filename-Transmogrification>p
    +erl filenameTransmogrification.pl
    Useless use of array element in void context at filenameTransmogrifica
    +tion.pl line 9.
    ...
    07/17/2013  09:51 AM               232 filenameTransmogrification.pl
                   3 File(s)            466 bytes
                   2 Dir(s)  78,355,476,480 bytes free
    
  3. or download this
    my $fff=($filenam[0],"_header",".txt");
        to
    my $fff=$filenam[0] . "_header" . ".txt";
    
  4. or download this
    C:\Steve\Dev\PerlMonks\P-2013-07-17@0950-Filename-Transmogrification>p
    +erl filenameTransmogrification2.pl
    abc.dat
    ...
    07/17/2013  09:52 AM               234 filenameTransmogrification2.pl
                   4 File(s)            466 bytes
                   2 Dir(s)  78,354,427,904 bytes free
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (12)
As of 2019-03-26 14:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How do you Carpe diem?





    Results (125 votes). Check out past polls.

    Notices?