Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^5: very new to perl; suggestions for porting this shell script to perl?

by Cristoforo (Deacon)
on May 31, 2011 at 00:08 UTC ( #907392=note: print w/ replies, xml ) Need Help??


in reply to Re^4: very new to perl; suggestions for porting this shell script to perl?
in thread very new to perl; suggestions for porting this shell script to perl?

I'm glad to hear it works OK. :-)
You never really know until you run it against some data I guess.

Do you know of any simple ways to make it respect the order in which they're specified when they're assigned at "my $regex ="?
That occured to me after I posted the code, but I wasn't sure it was necessary.

Since your categories list is in alphabetical order, you could sort the keys in the print routine like:

for my $category (sort keys %data).

Glad to be of help!

Update: Just for the record, if the order of records was not in sort order, a few small changes would handle that situation.

At the top of the script, before the for loop, you would enter:

my @cat = qw/ Audio Graphics Network Settings System Utility /; # in y +our desired order my $regex = join "|", @cat; my @files = glob "/usr/share/applications/*.desktop"; # as before

Then a small change to the print routine:

for my $category ( @cat ) { next unless exists $data{ $category }; print "Submenu = \"$category\" {\n"; . . . . .


Comment on Re^5: very new to perl; suggestions for porting this shell script to perl?
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (13)
As of 2014-12-18 18:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (59 votes), past polls