Mega Code Archive

 

Categories / Perl / Language Basics

 

Shift

#!/usr/bin/perl -w use strict; sub version {     print "version\n"; } my $option = shift;    # defaults to shifting @ARGV version() if $option eq "-v" or $option eq "--version"; print "Hello, world.\n";