Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Alphnumeric Matching

by kielstirling (Scribe)
on Jan 31, 2012 at 00:05 UTC ( #950850=note: print w/ replies, xml ) Need Help??


in reply to Alphnumeric Matching

Sorry,

I'm finding it hard to follow your question and example code.

Will something like the following work? If not please explain yourself more?

#!/usr/bin/perl -w use strict; my @labels = qw(B0001R B1001R B4356); for my $label (sort @labels) { print "$label\n"; }


Comment on Re: Alphnumeric Matching
Download Code
Re^2: Alphnumeric Matching
by mrbbq (Acolyte) on Jan 31, 2012 at 01:00 UTC

    Hi, thanks for the response. The @tapes_to_eject array has the tape numbers but the are not in order.

    $ejected_tapes=0 ; #my @tapes_to_eject=sort @_ ; my @tapes_to_eject=@_ ; #my @tapes_to_eject=sort { substr($a, 1) <=> substr($b, 1)} @_ +; # Test #print "@_";

    Then I run them through the eject command

    `/usr/openv/volmgr/bin/vmchange -res -multi_eject -w -rn $robot_num +-rt tld -rh $robot_host -ml $\@_[0]:$\@_[1]:$\@_[2]:$\@_[3]:$\@_[4]:$ +\@_[5]:$\@_[6]:$\@_[7]:$\@_[8]:$\@_[9]:$\@_[10]:$\@_[11]:$\@_[12]:$\@ +_[13]:$\@_[14]:$\@_[15]:$\@_[16]:$\@_[17]:$\@_[18]:$\@_[19]:$\@_[20]: +$\@_[21]:$\@_[22]:$\@_[23]:$\@_[24]:$\@_[25]:$\@_[26]:$\@_[27]:$\@_[2 +8]:$\@_[29]:$\@_[30]:$\@_[31]:$\@_[32]:$\@_[33]:$\@_[34]:$\@_[35]:$\@ +_[36]:$\@_[37]:$\@_[38]:$\@_[39]:$\@_[40]:$\@_[41]:$\@_[42]:$\@_[43]: +$\@_[44]:$\@_[45]:$\@_[46]:$\@_[47]:$\@_[48]:$\@_[49]:$\@_[50]:$\@_[5 +1]` ;

    The problem the tape numbers in @tapes_to_eject are not sorted. Thanks for looking

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (9)
As of 2014-10-26 06:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (151 votes), past polls