#26#18, no hay duda que en concisión Perl no tiene rival, pero tampoco hay que exagerar, en casi cualquier lenguaje de scripting ese bucle tendría una longitud/complejidad similar. Sin ir más lejos, en Python quedaría así:
import sys, re
for line in sys.stdin:
if re.findall("^cd|^ls", line): print ">>",
print line,
En cualquier caso, ¿Perl muerto? pues la verdad es que este muerto está muy vivo
import sys, re
for line in sys.stdin:
if re.findall("^cd|^ls", line): print ">>",
print line,
En cualquier caso, ¿Perl muerto? pues la verdad es que este muerto está muy vivo