hi Edward,
thanks for the help..
but i didn't really understood the code.. please guide me what documentation
should i read for columnwise analysis..
thanks again..
aditi
On 5/14/05, Edward WIJAYA <[EMAIL PROTECTED]> wrote:
>
> On Sat, 14 May 2005 14:12:37 +0800, Aditi Gupta <[EMAIL PROTECTED]>
> wrote:
>
> > hi everybody,
>
> Hi,
>
> > is it possible to search for a pattern in each column of a file. I've
> > only
>
> This may not exactly what you want.
> But hopefully it can give you some ideas.
> The idea is to get all those column in to
> a hash of array, and then process each hash according
> to your desired regex.
>
> The code below prints:
> $VAR1 = {
> '0' => [
> 'AB', # your columnwise data
> EF
> ],
>
> '1' => [
> 'BC',
> 'FG'
> ],
>
> '2' => [
> 'CD',
> 'GH',
> ]
> };
>
> which gives column (of the size 2) wise extraction
> of the data.
>
> __BEGIN__
> use Data::Dumper;
> my %hash;
> my $sub_length = 2;
>
> while (<DATA>) {
> chomp;
> for my $j (0 .. length - $sub_length)
> {
> push @{$hash{$j}}, substr $_, $j, $sub_length;
> }
> }
>
> print Dumper \%hash;
>
> foreach my $hkey (keys %hash)
> {
> foreach my $i ( 0 .. $#{ $hash{$hkey} } )
> {
> print "$hash{$hkey}[$i]";
> # or do some regex with it
> }
> }
>
> __DATA__
> ABDC
> EFGH
>
> --
> Regards,
> Edward WIJAYA
> SINGAPORE
>
