C++博客-to myself 的分类学习日志-随笔分类-perl

perl统计文件的行数

kongkongzi — Tue, 02 Aug 2011 10:18:00 GMT

1 #!/usr/bin/perl -w
2
3 use strict;
4
5 if (@ARGV < 1)
6 {
7     die "Usage:$0 path_name\n";
8 }
9
10
11 my $lineTotal = 0;
12
13 my @fileTypeArr = ("*.h", "*.cpp");
14 my $fileType;
15
16 foreach $fileType (@fileTypeArr)
17 {
18 #    print "$fileType", "\n";
19
20     my $cmd = sprintf("find %s -name \"%s\"", $ARGV[0], $fileType);
21     my @fileArr = `$cmd`;
22     my $file;
23
24     foreach $file (@fileArr)
25     {
26         my $cmd = sprintf("wc -l %s", $file);
27         my @wcResult = `$cmd`;
28     #    print $wcResult[0], "\n";
29         my @wcCol = split(/\s+/, $wcResult[0]);
30         $lineTotal = $lineTotal + $wcCol[0];
31     }
32 }
33
34 print $lineTotal, "\n";
35

kongkongzi 2011-08-02 18:18 发表评论

Perl日志分析

kongkongzi — Thu, 30 Sep 2010 08:29:00 GMT

#!/usr/bin/perl -w
# file: statslog

use strict;

if (@ARGV < 4) # @ARGV return size of array ARGV in this context
{
    die "Usage: $0 inlog outfile usermin usermax\n";
}

my $success = open INLOG, "<", $ARGV[0];     # open function has three args, INLOG is a file handler
if (!$success)
{
    die "Cannot open $ARGV[0]:$!";
}

$success = open STATSOUT, ">", $ARGV[1];
if (!$success)
{
    die "Cannot open $ARGV[1]:$!";
}

my @arrTag = (
        "Hello,world!",
    );

#print $arrTag[0], "\n";
#print $#arrTag, "\n";
#print $arrTag[$#arrTag], "\n";

my $user = "myname";
my $matchStr;

my $usermin = $ARGV[2];
my $usermax = $ARGV[3];

for (my $j = $usermin - 1; $j < $usermax; $j++)
{
    $matchStr = sprintf("%s%d %s", $user, $j+1, $arrTag[0]);

    my $bMatch = 0;

    seek(INLOG, 0, 0);
    while (<INLOG>)
    {
        if (/$matchStr/)        # $_
        {
        #    print;
        #    print STATSOUT;
            $bMatch = 1;
            last;
        }
    }

    if (0 == $bMatch)
    {
        print STATSOUT "NOt match", $matchStr, "\n";
    }
}

close INLOG;
close STATSOUT;

kongkongzi 2010-09-30 16:29 发表评论

Perl定时记录进程性能信息

kongkongzi — Thu, 30 Sep 2010 08:23:00 GMT

摘要: #!/usr/bin/perl -w# file: infogatheruse strict;if (@ARGV < 1) # @ARGV return size of array ARGV in this context{... 阅读全文

kongkongzi 2010-09-30 16:23 发表评论

Perl文本分析

kongkongzi — Mon, 09 Aug 2010 09:58:00 GMT

#!/usr/bin/perl -w
# file: statstxt

use strict;

if (@ARGV < 2) # @ARGV return size of array ARGV in this context
{
        die "Usage: $0 intxt outfile\n";
}

my $success = open INTXT, "<", $ARGV[0];        # open function has three args, INTXT is a file handler
if (!$success)
{
        die "Cannot open $ARGV[0]:$!";
}

$success = open STATSOUT, ">", $ARGV[1];
if (!$success)
{
        die "Cannot open $ARGV[1]:$!";
}

while (<INTXT>)
{
        my @arrCol = split(/\s+/);      # $_    # split $_ by spaces
        if ($arrCol[1] > 0)             # The second column of text
        {
                print;
                print STATSOUT;
        }

}

close INTXT;
close STATSOUT;

kongkongzi 2010-08-09 17:58 发表评论

Perl网络编程

kongkongzi — Mon, 02 Aug 2010 09:52:00 GMT

Server program code :

#!/usr/bin/perl -w
use strict;

# Server Program
use IO::Socket::INET;
print ">> Server Program <<\n";

# Create a new socket
my $MySocket=new IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp');

# Keep receiving messages from client
my $def_msg="\nReceiving message from client..\n";
while(1)
{
    my $text;
    $MySocket->recv($text,128);
    if($text ne '')
    {
        print "\nReceived message '", $text,"'\n";
    }
    # If client message is empty exit
    else
    {
        print "Cilent has exited!";
        exit 1;
    }
}

Client program code :

#!/usr/bin/perl -w
use strict;

# Client Program
use IO::Socket::INET;
print ">> Client Program <<";

# Create a new socket
my $MySocket=new IO::Socket::INET->new(PeerPort=>1234,Proto=>'udp',PeerAddr=>'localhost');

# Send messages
my $def_msg="Enter message to send to server : ";
print "\n",$def_msg;
my $msg;
while($msg=<STDIN>)
{
    chomp $msg;
    if($msg ne '')
    {
        print "\nSending message '",$msg,"'";
        if($MySocket->send($msg))
        {
            print "..","\n";
            print $def_msg;
        }
    }
    else
    {
        # Send an empty message to server and exit
        $MySocket->send('');
        exit 1;
    }
}

kongkongzi 2010-08-02 17:52 发表评论