818  perl -e '@a=open(INPUT,"<stile2a.pl")|| die "Cant open: $!\n";close (INPUT); print "@a\n";'
  819  perl -e '@a=open(INPUT,"<stile2a.pl")|| die "Cant open: $!\n";close (INPUT); print @a;'
  820  perl -e '@a=open(INPUT,"<stile2a.pl")|| die "Cant open: $!\n";close (INPUT); print "@a\n";'
  821  perl -e 'open(INPUT,"<stile2a.pl")|| die "Cant open: $!\n";@a=<INPUT>;close (INPUT); print "@a\n";'
  822  perl -e 'open(INPUT,"<stile2a.pl")|| die "Cant open: $!\n";$a=<INPUT>;close (INPUT); print "@a\n";'
  823  perl -e 'open(INPUT,"<stile2a.pl")|| die "Cant open: $!\n";$a=<INPUT>;close (INPUT); print "$a\n";'
  824  perl -e 'open(INPUT,"<stile2a.pl")|| die "Cant open: $!\n";@a=<INPUT>;close (INPUT); print "@a\n";'
  825  perl -e '$a=system(cat /proc/net/dev); print "@a\n";'
  826  perl -e '$a=`cat /proc/net/dev`; print "@a\n";'
  827  perl -e '`cat /proc/net/dev`; print "@a\n";'
  828  perl -e 'system("cat /proc/net/dev"); print "@a\n";'
  829  perl -e '@a=system("cat /proc/net/dev"); print "@a\n";'
  830  perl -e '@a=system("cat /proc/net/dev");'
  831  perl -e '$a=system("cat /proc/net/dev");print "$a\n";'
  832  l
  833  cd ..
  834  ls
  835  l
  836  ./stile9.8.pl
  837  cat ./stile9.8.pl
  838  vi ./stile9.8.pl
  839  ./stile9.8.pl
  840  ls
  841  cat stile9.8.pl
  842  perl -e '@a=(one,two,three);$ar_a=\@a;@b=(red,blue,green);$ar_b=\@b;print "@a\n@b\n";$tmp=$$ar_a;$ar_a=$ar_b;$ar_b=$tmp;print "@a\n@b\n";'
  843  ;$$ar_a=$$ar_b;$ar_b=$tmp;print "@a\n@b\n";'
  844  perl -e '@a=(one,two,three);$ar_a=\@a;@b=(red,blue,green);$ar_b=\@b;print "@a\n@b\n";$$tmp=$$ar_a;$$ar_a=$$ar_b;$$ar_b=$$tmp;print "@a\n@b\n";'
  845  perl -e '$a=bla;$sr_a=\$a;print "$sr_a\n";'
  846  perl -e '$a="fee";$sr_a=\$a;print "$sr_a\n";
  847  perl -e '$a="fee";$sr_a=\$a;print "$sr_a\n";'
  848  perl -e '$a="fee";$sr_a=\$a;print "$sr_a\n";$$sr_a="fo fum";print "$sr_a\n";'
  849  perl -e '$a="fee";$sr_a=\$a;print "$$sr_a\n";$$sr_a="fo fum";print "$$sr_a\n";'
  850  perl -e '@a=(one,two,three);$ar_a=\@a;@$ar_a.=("four");print "@a\n";
'
  851  perl -e '@a=(one,two,three);$ar_a=\@a;@$ar_a=("four");print "@a\n";'
  852  perl -e '@a=(one,two,three);print "@a\n";$ar_a=\@a;@$ar_a=("four");print "@a\n";'
  853  perl -e '@a=(one,two,three);print "@a\n";$ar_a=\@a;@$ar_a.=four;print "@a\n";'
  854  perl -e '@a=(one,two,three);print "@a\n";$ar_a=\@a;@$ar_a=("four");print "@a\n";'
  855  perl -e '@a=(one,two,three);print "@a\n";$ar_a=\@a;@$ar_a=(@a,"four");print "@a\n";'
  856  perl -e '@a=(one,two,three);print "@a\n";$ar_a=\@a;@$ar_a=+"four";print "@a\n";'
  857  perl -e '@a=(one,two,three);print "@a\n";$ar_a=\@a;@$ar_a=(@$ar_a,"four");print "@a\n";'
  858  perl -e '@a=(one,two,three);$ar_a=\@a;print $ar_a->[1];'
  859  perl -e '@a=(one,two,three);$ar_a=\@a;print $ar_a >[1];'
  860  perl -e '@a=(one,two,three);$ar_a=\@a;print "$ar_a >[1]\n";'
  861  perl -e '@a=(one,two,three);$ar_a=\@a;print "$ar_a->[1]\n";'
  862  perl -e '%a=(one=>me,two=>you,three=>eie);$ar_a=\%a;print "$ar_a->{1}\n";'
  863  perl -e '%a=(one=>me,two=>you,three=>eie);$ar_a=\%a;print "$ar_a->{one}\n";'
  864  history
jstile@johns2:~/Chabot/2002Fall/CSCI44A_Perl_Programming_I> vi references.txt