ngs · November 8, 2010 17:48
diff --git a/bashrc b/bashrc
 alias ice='perl -MLWP::Simple -le "(my \$i=get q{http://bit.ly/bkKBvA})=~s%.+nt>(\d+).*%\$1%;print \$i"'
diff --git a/ice b/ice
 perl -MLWP::Simple -e '(my $i=get q{http://bit.ly/bkKBvA})=~s%.+nt>(\d+).*%$1%;print qq{$i\n}'
diff --git a/ice.pl b/ice.pl
 #!/usr/bin/perl
 use LWP::Simple;
 (my $i=get q{http://bit.ly/bkKBvA})=~s%.+nt>(\d+).*%$1%;print qq{$i\n}
	#!/usr/bin/perl
	use LWP::Simple;
	(my $i=get q{http://bit.ly/bkKBvA})=~s%.+nt>(\d+).*%$1%;print qq{$i\n}
No results found