Lines Matching refs:ln
30 my $ln = $_;
31 chomp($ln);
33 #print "LINE: -:$ln:-\n";
35 if ($ln =~ /Doing ip addr show for (\S+)/) {
39 elsif ($ln =~ /Doing ifconfig -a for (\S+)/) {
43 elsif ($ln =~ /^real (\S+)/) {
46 elsif ($ln =~ /^user (\S+)/) {
49 elsif ($ln =~ /^sys (\S+)/) {
60 #print "INFO: Didn't match anything -:$ln:-\n";
70 my $ln = $_;
71 chomp($ln);
73 #print "LINE: -:$ln:-\n";
75 if ($ln =~ /Doing ip addr show for (\S+)/) {
79 elsif ($ln =~ /Doing ifconfig -a for (\S+)/) {
83 elsif ($ln =~ /^real (\S+)/) {
86 elsif ($ln =~ /^user (\S+)/) {
89 elsif ($ln =~ /^sys (\S+)/) {
100 #print "INFO: Didn't match anything -:$ln:-\n";