Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Text merge concept in perl

by Laurent_R (Canon)
on Dec 19, 2013 at 19:02 UTC ( [id://1067860]=note: print w/replies, xml ) Need Help??


in reply to Text merge concept in perl

Or this one-liner (I am merging here all the a*.pl files in my current directory into out.txt): 
$ perl -pe '' a*.pl > out.txt

[download]
Just a quick check on the number of lines and characters: 
$ wc out.txt
 186  583 4219 out.txt

$ wc  a*.pl
  11   27  187 a.pl
  35  125  719 add2.pl
  11   47  305 analyse_fable.pl
  25   95  502 any.pl
  24   99  532 any2.pl
  24   55  357 aoh.pl
  56  139 1617 array_hash.pl
 186  587 4219 total

[download]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1067860]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2024-04-26 00:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found