Search Results

echo RBD_EXTRAC* |perl -ne 's/(.*_d)(.*)(\.tar.gz)/\2/;print'

#!/usr/bin/env perl

open( $fh, "<", "file") or die "Cannot open file: $!\n";

while( my $line = <$fh>) {
chomp($line);
my @array = split /\s+/, $line; # split to get 3rd field
if (...

#!/usr/bin/env perl

open( $fh, "<", "yourfile") or die "Cannot open file: $!\n";
# go through the file line by line
while( my $line = <$fh>) {
chomp($line); #...

#!/usr/bin/env perl

open( $fh, "<", "yourfile") or die "Cannot open file: $!\n";

my $content = do { local $/; <$fh> }; # slurp in whole file

$content =~ s,{.*?},,smg; # remove...

#!/usr/bin/env perl
use strict;
use warnings;

while( my $line = <> ){
if ( $line =~ /Fundallinfo/ ){
$line = <>;
print $line ;
}
}

perl -ne 'print if /TNS-(?!12514)/' yourfile

#!/usr/bin/env perl
use strict;
use warnings;

while(<>){
my @sp = split(/,/ , $_);
$sp[4] = "77\n" if $sp[2] == "66" ;
print join(",", @sp);
}

perl -ne '/REFDES=(.*?)\s+/ && print $1' your_file

#!/usr/bin/env perl
use strict;
use warnings;

while(<>){
my @sp = split(/,/ , $_);
print if $sp[1] == 123456;
}