Shell Programming and Scripting

For find the delimiter, we don't to need analyze the full file. we read the first line of the file is enough. Which string appears maximum time that treaded as the delimter.

The above code @file contains the whole file.
$file[0] -> holds the first line of the file ( Read the array concepts )

$& -> contains the current matching ( Read the perl special variables)
$delim{$&}++ -> increase the count of the matched string ( Read the hashes concept)

That helped .. Thank you ..

I tuned the code because i was getting the below error since I am using strict.
<Global symbol "%delim" requires explicit package name at 1.pl>

If I do not use strict then it runs fine.

So I tuned the code as below: Do you think it worksthe same way?



for ($file[0] =~ m{[^\w\n\.]+}g)
{
$delim = $&;
$max++;
if ($max > 0)
{
$destr = $&; # assign the delimiter string to a variable
}
}

Code:

my %delim; # Declare the hashes
for ($file[0] =~ m{[^\w\n\.]+}g) 
{
$delim = $&; 
$max++;
if ($max > 0)
{
$destr = $&; # assign the delimiter string to a variable
}
}