Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
use warnings;
print +(split / /, (split /,/, (split /:/)[4])[0])[0], "\n" while <DAT
+A>;
  2. or download this
    16:05 >perl -pwe "$_ = (split / /, (split /,/, (split /:/)[4])[0])[0] 
+. qq[\n];" passwd
barry
...
bart

16:05 >