Skip to content
#!/usr/bin/perl
use strict;
use warnings;
my $collor = 'blue';
print "blue\n" if
length($collor) eq 4;
resul
$perl blog.pl
blue
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 - [ 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 - 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 - [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
- Perl Hash [SINTAXE]
high voltage =)
------------------------------------------------------------------------------------------------------------------------------… Read More
0 comentários:
Post a Comment