Perl: string ops, eval, strict, print, coma
#!/usr/bin/env perl use strict; # @2-21, pag #73 $a="o"; print $a.":"; print "\n"; print $a x 5; print "\n"; $a .= ":"; print "Cadeneta construida: ", $a x= 5, "\n"; print "Cadeneta guardada: ", $a, "\n";
#!/usr/bin/env perl use strict; # @2-21, pag #73 $a="o"; print $a.":"; print "\n"; print $a x 5; print "\n"; $a .= ":"; print "Cadeneta construida: ", $a x= 5, "\n"; print "Cadeneta guardada: ", $a, "\n";
Comments