- or download this
use strict;
use warnings;
...
}
bb(@ARGV);
- or download this
# Before loop:
my %is_account;
...
...
# In loop:
push .... if !$is_account{$username};
- or download this
awk '{
i=i+1
...
filename="file" i ".txt"
print >filename
}' tmp.txt
- or download this
package FixStuff;
...
...
FixText(...blahblah...);
- or download this
use FixStuff;
FixStuff::FixText(...blahblah...);
- or download this
#!/users/contrib/bin/perl
...
}
print "Done\n";
- or download this
package Release;
...
}
print "Done\n";
- or download this
package Release;
...
print "Release foo\n";
}
print "Done\n";
- or download this
sub include_file {
my $file = shift;
...
#Example:
include_file("file.txt");
- or download this
# XML::Rules bug??
# Just want to change some attributes on some tags
...
$p->filter($xml, \*STDOUT);
- or download this
INPUT: while (<>) {
...
( /^-?\d+/and $_ >= -2**31 and $_ < 2**31 ) or next INPUT for @nums;
print "good line: $_";
}
- or download this
#Fetch into a hash
my @columns = $sth->{NAME_lc};
...
print "$_ = $row{$_}\n" for @columns;
print "\n";
}
- or download this
our $Kid_Status;
use POSIX ":sys_wait_h";
...
} else {
exit 43;
}
- or download this
#############################################
#!/usr/bin/perl
...
}
return $table, @names;
}
- or download this
set nocp ignorecase smartcase
syntax enable
...
map ,v :sp ~/.vimrc<CR><C-W>_
"Reload vimrc file
map <silent> ,V :source ~/.vimrc<CR>:filetype detect<CR>:exe ":echo 'v
+imrc reloaded'"<CR>