Monday, 13 January 2014

Perl string concatenation

open("FILE","/etc/passwd");
while($line=<FILE>)
{
@s=split(":",$line);
$k.=" # $s[0]";
print $k."\n";
}

Usage:
# root # daemon # bin # sys # sync # games # man # lp # mail # news # uucp # proxy # www-data # backup # list # irc # gnats # nobody # libuuid # syslog # messagebus # colord # lightdm # whoopsie # avahi-autoipd # avahi # usbmux # kernoops # pulse # rtkit # saned # speech-dispatcher #

No comments:

Post a Comment