Search Results

#! /usr/bin/perl
use strict;

$file='max_char'; #input file

open (FH, $file) || die "Error in Opening:$file file\n";
my $count;
my $len;
my $read;
my $max;
my $line;
while ($read = <FH>)...

#! /usr/bin/perl

$file='last_block'; #file name
open (FH, $file);

while ($line=<FH>) {
undef(@array);
chomp($line);
if($line =~ /^START/) {
while...