Bash ~ Perl ~ Python ~ Batch ~ Ruby
Tuesday, 9 April 2013
Anchor in perl
#!/usr/bin/perl
open(FILE,"/etc/passwd");
while($line=<FILE>)
{
if ( $line =~ /ser\b/ )
{
print $line."\n";
}
}
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment