Perl Switch/Case Satement

Written by James McDonald

November 24, 2011


for (@ARGV) {
        if (/^6\d{4}$/)  { $item_code = $_; $action = 'load'; } 
        elsif (/^stop$/) { $action = 'stop' ; } 
        elsif (/^start$/) { $action = 'start'; }
        else { print "Default\n"; }    
}

print "Item : " . $item_code . "\n";
print "Action : " . $action . "\n";

0 Comments

Submit a Comment

Your email address will not be published.

You May Also Like…

ZPL SBPL

Zebra Printer Language http://labelary.com/viewer.html The above website has a page where you can enter ZPL and it...

PHP Iterators

Just came across a Youtube talk "Iterators in PHP" by Jake Smith published in 2014 that steps through the many...

PHP array_map Multiple Arrays

array_map can take multiple arrays. I like how it starts mapping through them starting at the first element of each...