| Task: |
Perl:
|
Python:
|
PHP:
|
Ruby:
|
| Print 1-10 on seperate lines in html |
<![CDATA[
22 chars:
print"$_<br>"for 1..10
]]>
|
<![CDATA[
36 chars:
for i in range(1,11):
print'%d<br>'%i
]]>
|
<![CDATA[
29 chars:
echo join('<br>',range(1,10))
]]>
|
<![CDATA[
26 chars:
puts((1..10).map*('<br>'))
]]>
|
| Print A-Z on own lines |
<![CDATA[
15 chars:
$,=$/;print A..Z
]]>
|
<![CDATA[
33 chars:
for i in range(65,91):
print'%c'%i
]]>
|
<![CDATA[
35 chars:
while($n<26)
echo chr(++$n+64)."\n";
]]>
|
<![CDATA[
24 chars:
'A'.upto('Z'){|x|puts x}
]]>
|
| Print a string in slices of 3 characters on newline (assigned prior) |
<![CDATA[
19 chars:
#assumes string as $_
$,=$/;print/.{1,3}/g
]]>
|
<![CDATA[
43 chars:
#assumes string as s
for i in range(0,len(s),3):
print s[i:i+3]
]]>
|
<![CDATA[
41 chars:
//assumes string as $s
while($o=substr($s,(3*$c++),3))
echo "$o\n";
]]>
|
<![CDATA[
25 chars:
#assumes string as $_
scan(/.{1,3}/){|n|puts n}
]]>
|
Create hash mapping A-Z to
n-1 |
<![CDATA[
14 chars:
@h{A..Z}=0..25
]]>
|
<![CDATA[
41 chars:
h={}
for i in range(26):
h[chr(i+65)]=i
]]>
|
<![CDATA[
43 chars:
while($n<26)
$h[chr(++$n+64)]=count($h);
]]>
|
<![CDATA[
34 chars:
h={}
('A'..'Z').map{|x|
h[x]=h.size
}
]]>
|
| Print out every line from 'f.txt' containing a number |
<![CDATA[
28 chars:
perl -ne'/\d/&&print' f.txt
]]>
|
<![CDATA[
61 chars:
import re
for l in open('f.txt'):
if re.search('\d',s):print l
]]>
|
<![CDATA[
57 chars:
foreach(file('f.txt') as $l)
echo(ereg('[0-9]',$l)?$l:'');
]]>
|
<![CDATA[
31 chars:
ruby -ne'/\d/and puts $_' f.txt
]]>
|
| Print the number of times the substring 'fish' appears in file 'f.txt' |
<![CDATA[
37 chars:
perl -ne'$n+=()=/fish/g}{die$n' f.txt
]]>
|
<![CDATA[
59 chars:
import re
print len(re.findall('fish',
open('f.txt').read()))
]]>
|
<![CDATA[
47 chars:
<?=substr_count(join('',
file('f.txt'),'fish')?>
]]>
|
<![CDATA[
43 chars:
p File.new('f.txt').read.
scan('fish').size
]]>
|
| Assign the last line in file 'f.txt' to variable 'v' |
<![CDATA[
21 chars:
perl -ne'$v=$_' f.txt
]]>
|
<![CDATA[
31 chars:
v=open('f.txt').readlines()[-1]
]]>
|
<![CDATA[
29 chars:
$v=array_pop(file('f.txt'));
]]>
|
<![CDATA[
20 chars:
ruby -ne'v=$_' f.txt
]]>
|
| Print out every directory in root |
<![CDATA[
21 chars:
-d&&print$_.$/for</*>
]]>
|
<![CDATA[
52 chars:
import os
def p(a,d,n):print d
os.path.walk('/',p,0)
]]>
|
<![CDATA[
79 chars:
$d=opendir('/');
while($f=readdir($d))
if(is_dir("/$f"))
echo "$f\n";
closedir($d);
]]>
|
<![CDATA[
45 chars:
Dir.foreach('/'){|d|
puts d if test(?d,'/'+d)
}
]]>
|
| Loop that prompts with '>>' echoes input, exits on 'exit' |
<![CDATA[
44 chars:
$\='>>';print;
print/^exit$/?exit:$_ while<>
]]>
|
<![CDATA[
]]>
|
<![CDATA[
90 chars:
$x=fopen('/dev/stdin','r');
echo '>>';
while($t=fgets($x,1024))
echo $t=="exit\n"?die:"$t>>";
]]>
|
<![CDATA[
48 chars:
print'>>'
while gets
print/^exit$/?exit:$_,'>>'
end
]]>
|
| Connect to MySQL and return all fields joined with '|' from all records returned. |
<![CDATA[
129 chars:
use DBI;$l=DBI->connect(
"DBI:mysql:$db",$u,$p);
$s=$l->do("SELECT * FROM TBL");
while(@r=$s->fetchrow_array)
print join('|',@r)."\n"
]]>
|
<![CDATA[
]]>
|
<![CDATA[
116 chars:
mysql_connect($h,$u,$p);
$r=mysql_query("SELECT * FROM
$db.TBL");
while($x=mysql_fetch_row($r))
echo join('|',$x)."\n";
]]>
|
<![CDATA[
101 chars:
require "mysql"
l=Mysql.new('h','u','p','db')
r=l.query("SELECT * FROM TBL")
r.each{|f|
puts f.join('|')
}
]]>
|
| Create a simple class in which to store Song data. |
<![CDATA[
106 chars:
package Song;
my($title,$artist,$length);
sub new{
($self,$title,$artist,$length)=@_;
bless \$self
}
]]>
|
<![CDATA[
76 chars:
class Song:
def __init__(s,t,a,l):
s.title=t
s.artist=a
s.lenth=l
]]>
|
<![CDATA[
87 chars:
class Song{
function Song($t,$a,$l){
$this->title=$t;
$this->artist=$a;
$this->length=$l;
}
}
]]>
|
<![CDATA[
69 chars:
class Song
def initialize(t,a,l)
@title=t
@artist=a
@length=l
end
end
]]>
|
| Grab www.yahoo.com and list every link on the page. |
<![CDATA[
73 chars:
use LWP::Simple;$,=$/;
print/ef=([^> ]+)>/g for
get"http://www.yahoo.com"'
]]>
|
<![CDATA[
210 chars:
import httplib, re
h=httplib.HTTP("www.yahoo.com")
h.putrequest("GET","/index.html")
h.putheader("Accept','text/html")
h.endheaders()
h.getreply()
ll=re.findall('ef=.*?>',
h.getfile().read())
for l in ll:
print l[4:-2]
]]>
|
<![CDATA[
102 chars:
preg_match_all('/ef=(.*?)>/',
join('',file('
http://www.yahoo.com')),$m);
while($x=next($m[1]))
echo "$x\n";
]]>
|
<![CDATA[
92 chars:
re 'net/http'
n=Net::HTTP.new('www.yahoo.com')
r,d=n.get('/')
puts d.scan(/ef=(.*?)>/)
]]>
|