Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: The accidental fractal

by jwkrahn (Monsignor)
on Sep 23, 2006 at 21:14 UTC ( #574549=note: print w/replies, xml ) Need Help??


in reply to The accidental fractal

You can shorten this:
for $r (@a) { $b[$r][$_] = $" for @a }
To this:
@b = ([($")x@a])x@a;
You can also shorten this:
print map{ @{$e[$_]}, $/ } @a;
using the for statment modifier:
print @{$e[$_]}, $/ for @a;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://574549]
help
Chatterbox?
[Lady_Aleena]: Hello. Why is this dying at -exec: my @music_times = qx(find ~/Music/Albums/ -type f -iname '*.mp3' -exec {} \;); with the error find: missing argument to `-exec'
[Lady_Aleena]: ACK! my @music_times = qx(find ~/Music/Albums/ -type f -iname '*.mp3' -exec mp3info -p "%S\n" {} \;);
[marioroy]: :)

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2017-04-23 09:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (430 votes). Check out past polls.