Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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 rifling through the Monastery: (5)
As of 2014-12-27 10:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (176 votes), past polls