[Image of Linux]
Linux's Witness Ministry
The Personal Web Pages of Chris X. Edwards

ex-io.pl
-------------------------- 
#!/usr/bin/perl
#ex-io.pl

while (<STDIN>){ #perlism for "not eof"
print "file it under: ", substr($_, 0, 1), "\n";
  #special underscore variable "_", reuses most recent input 
  #is the default variable for many functions
} #end of while control block

--------------------------
Return to Program Examples
This page was created with only free, open-source, publicly licensed software.
This page was designed to be viewed with any browser on any system.
Chris X. Edwards ~ January 2003