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

Re: Tips for elegance

by Zaxo (Archbishop)
on Jun 06, 2006 at 05:06 UTC ( [id://553745]=note: print w/replies, xml ) Need Help??


in reply to Tips for elegance

Shelling out for file lists is pretty inelegant. Built-in glob can handle that,

my @ll = map { (glob "$path/$_")[0] } qw/*B1006* *B1106-* *B11062*/;

You can dispense with the index $next by pushing elements onto the arrays. Your regex can be dressed up a little with quantifiers and built-in character classes.

my (@stamp, @name); foreach (@ll) { if (m#([A-Z][a-z]{2}\s\d{2}\s\d{2}:\d{2})\s(/.+\.+Z)$#) { push @stamp, $1; push @name, $2; } }
The if is necessary. Without it, you don't know that $1 and $2 are fresh. I added an end-anchoring $ to ensure .Z but not .Zoo files.

I left off printing until they can happen in one discrete block.

for (0..#$stamp) { printf "\$name[$_]:\t%s\n\$stamp[$_]:\t%s\n\n", $name[$_], $stamp[$_]; }

Update: Woops, japhy++ spotted a feature I completely overlooked. That simplifies everything, and makes the regex completely unnecessary. With the above @ll is @name. New version, minus printing:

my @name = map { (glob "$path/$_")[0] } qw/*B1006*.Z *B1106-*.Z *B11062*.Z/; my @stamp = map { scalar localtime( (stat)[9]) } @name;
That retains $path in the names, but those can be trimmed if you like using File::Basename.

After Compline,
Zaxo

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-03-28 22:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found