perl从文件中搜索与匹配关键字的方法

#!/usr/bin/perl

use strict;
use warnings;

my $log_file = '/home/aaa/log';

open(LOG,"< $log_file") or die "Unable to open logfile:$!n";
while(<LOG>){
    print  if /[error]|error/;
}

close(LOG);

#!/usr/bin/perl

use strict;
use warnings;

if (scalar(@ARGV) < 2) {
    print "Usage: $0 <ip-address> <interface>nn";
    exit(1);
}

my $ip = $ARGV[0];
my $iface = $ARGV[1];

# Check if ip is already here
my $ip_check = `/sbin/ip addr show`;
if ($ip_check  =~ /$ip/) {
    print "OK: IP address is already heren";
    exit(0);
}

# Get physics device
my $ipaddr = `/sbin/ifconfig $iface`;

# Get ethernet address
$ipaddr =~ /HWaddrs*([0-9A-F:]+)/i;
my $if_eth = $1;
print "$if_ethn";

# Get broadcast address and netmask
$ipaddr =~ /Bcast:s*([d.]+)s*Mask:s*([d.]+)/i;
my $if_bcast = $1;
my $if_mask = $2;

print "$if_bcastn";
print "$if_maskn";

print "OKn";
exit(0);

#!/usr/bin/perl

use strict;
use warnings;

my $filename = '/opt/1.txt';
open FH, "< $filename" or die "can't open $filename  ..... ($!)";

my $line = 0;
my %file = map {($line++, $_)} <FH>;

print $file{0};
print $file{1};

#!/usr/bin/perl

use strict;
use warnings;

my $filename = '/opt/1.txt';

tie my @array, 'Tie::File', $filename or die "$!";

my $total = substr($array[0], 0, length($array[0])-1);
my $use   = (split(' ', $array[1]))[0];
my $mail_count   = (split(' ', $array[1]))[1];

print "$totaln";
print "$usen";
print "$mail_countn";