BEAUTY AND PLAY
commandline session $type ls ls is aliased to `ls –color=auto’ $type cp cp is /bin/cp $type mv mv is /bin/mv $type happy bash: type: happy: not found $type gnome-session gnome-session is /usr/bin/gnome-session $type rm rm is /bin/rm $type rm -r rm is /bin/rm bash: type: -r: not found $type ‘rm -r’ bash: type: rm -r: …
Continue reading “TYPE COMMAND Indicate how a command name is interpreted”
commandline session $cat comma.pl use strict; use warnings; for (qw/ 179550 45960 890458 -12345678 1000000000000/) { (my $n = $_) =~ s/(d+?)(?=(d{3})+b)/$1,/g; print “$nn”; } $nl comma.pl 1 use strict; 2 use warnings; 3 for (qw/ 179550 45960 890458 -12345678 1000000000000/) { 4 (my $n = $_) =~ s/(d+?)(?=(d{3})+b)/$1,/g; 5 print “$nn”; 6 } $nl …
Continue reading “nl [ -i ] line number increment at each line”
commandline session $cat array.pl #!/usr/bin/perl use strict; use warnings; my @colors = (“red”,”green”,”blue”); print “@colors”; print “n”; $perl array.pl red green blue $vim array.pl $cat array.pl #!/usr/bin/perl use strict; use warnings; my @colors = (“red”,”green”,”blue”); print “@colors”; print “n”; print $color[0]; print “n”; $perl array.pl Global symbol “@color” requires explicit package name at array.pl line …
commandline session $cat testgcc.pl #!/usr/bin/perl -w use Test::More tests => 2 ; my $result; system “gcc unsigned.c”; $result = `./a.out`; #print $result; ok ($result lt 0); system “gcc -funsigned-char unsigned.c”; $result = `./a.out`; #print $result; ok ($result gt 0); $cat unsigned.c #include int main(void) { char c = -10; printf(“%d”,c); return 0; } $perl testgcc.pl …
Continue reading “Perl TESTING for gcc compiler option related”
commandline session $cat test5.pl #!/usr/bin/perl use strict; use warnings; my $result; $result = `/usr/bin/concalc 1 + 1`; print $result; if ( $result == 1 ) { print “okn”; } else { print “not okn”; } $result = `/usr/bin/concalc 2 + 2`; if ( $result == 4 ) { print “okn”; } else { print “not …
commandline session $cat test4.pl #!/usr/bin/perl use strict; use warnings; system “echo 1 > 1”; print “n”; system “echo 2 > 2”; print “n”; system “echo hello”; print “n”; $perl test4.pl hello $cat 1 1 $cat 2 2 $
commandline session $cat test3.pl #!/usr/bin/perl -w use Test::Simple tests => 2; use Date::ICal; my $ical = Date::ICal->new; # create an object ok( defined $ical ); # check that we got something ok( $ical->isa(‘Date::ICal’) ); # and it’s the right class $perl test3.pl 1..2 ok 1 ok 2 $
commandline session $perl test1.pl 1..1 ok 1 $cat test1.pl #!/usr/bin/perl -w print “1..1n”; print 1 + 1 == 2 ? “ok 1n” : “not ok 1n”; $perl 1+1 $perl -e No code specified for -e. $perl -d Loading DB routines from perl5db.pl version 1.33 Editor support available. Enter h or `h h’ for help, or …
commandline session $sudo autotest-local run asynctest/ 18:58:57 INFO | Writing results to /usr/local/lib/python2.7/dist-packages/autotest/client/results/default 18:58:58 INFO | START —- —- timestamp=13625710038 localtime=Mar 06 18:58:58 18:58:58 INFO | START asynctest asynctest timestamp=13625710038 localtime=Mar 06 18:58:58 18:59:00 INFO | Process 1 stdout is now hi 18:59:00 INFO | hi 18:59:00 INFO | 18:59:02 INFO | Process 1 result …
commandline session > curve(x^3 – 5*x, from=-4, to=4) > png(file=”RcurveA.png”) > curve(x^3 – 5*x, from=-4, to=4) > dev.off() null device 1 > png(file=”RcurveB.png”) > curve(x^3 – 5*x, from=-4, to=0) > dev.off() null device 1 > png(file=”RcurveC.png”) > curve(x^3 – 5*x, from=10, to=50) > dev.off() null device 1 >