Thursday, October 6, 2011

Perl - A [ Switch ] statement

No comments   

Necessary import library.
Initialize the variable and play ($val).



#!/usr/bin/perl
use strict;
use warnings;

use Switch;
my $val = 'a';
switch ($val) {
      case 1      { print "number 1" }
      case "a"    { print "string a" }
      case [1..10,42] { print "number in list" }
      case /\w+/  { print "pattern" }
      case qr/\w+/    { print "pattern" }
      else { print "previous case not true" }
}
































Related Posts:
  • Perl -[ if , unless ]


#!/usr/bin/perl

use strict;

use warnings;



my $val = 1;



#first  

print "first (if)\n";

if($val > 1){

    print "if >… Read More
  • Perl - A [ Switch ] statement
Necessary import library.
Initialize the variable and play ($val).


#!/usr/bin/perl
use strict;
use warnings;

use Switch;

my $val = 'a';… Read More
  • Perl  - [ Expression ]
#!/usr/bin/perl

use strict;
use warnings;

my $var = 'LGMB-RP_06242011_HGWSI_1.fastq.sai.sam.bam.sort.bam';
if( $var =~ /^(.*)\.fastq/ ){
  &nb… Read More
  • Perl Hash  [SINTAXE]
 high voltage =)

------------------------------------------------------------------------------------------------------------------------------… Read More
  • Perl - [Function] (Sort)

Number




#!usr/bin/perl



use strict;



use warnings;







my @blog = (1,7,6,34,2,46,7);







print "disorderly\n";



print join (" ",@blog… Read More

















0
comentários:
        
















Post a Comment