Search Results

Try the below codes and integrate into your script.
#!/bin/sh
#By default array string tokenizer considered as space, But we need entire line.
# So whitespace replaced as _SPACE_
F1=( `cat...

perl -i -pe 'BEGIN{undef $/;} s/^/$ARGV\n/' `find . -name '*.txt'`

perl -ne '/(\d+)/; if ( $1 >= 6 && $1 <= 10 ){print}' temp.txt
perl -ne '/(\d+)/; if ( $1 >= 11 && $1 <= 100 ){print}' temp.txt
perl -ne '/(\d+)/; if ( $1 >= 101 ){print}' temp.txt

perl -ne 'print if(s/:+/$&/g <= 6)' input_file > Output_file

perl -ne 'print if(s/:/:/g <= 6)' input_file > Output_file

Yes, this is possible for the mentioned module

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
}
}

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...

Yes, by using of quotemeta function it is possible

my $delim = '|';
print "delim = <$delim> \n";
# Add escape sequence non-word characters
$delim=quotemeta($delim);
my $word = "I|know|you";...

# That can be done by hashes concept
@Array1 = qw(Fa0/0 Fa0/1 Fa0/2 Fa0/3);
@Array2 = qw(Fa0/1 Fa0/2 Fa0/3 Fa0/4);
# process two array , increment the values and store into hash
$hash{$_}++ for...

perl -i -pe '
BEGIN{undef $/;}$bak=$_;
while ($bak=~m/<A\s+HREF.*?<\/A>/gs){$x=$y=$&; $y=~ s/\s+/ /g; $_=~s/$x/$y/gs;}
' temp.txt

I update my previous post. Try the updated code.

perl -i -pe 'undef $/; s/<(Opt)>-L\$ORACLE_HOME.*?<\/\1>([^\n]*\n){2}//s; ' infile

perl -lne 'if (!$f){$n=$_; $f=1}else{$_.=$n; print} ' file1.txt file2.txt

perl -i -pe '
BEGIN{
%h=qw(
JAN 01
FEB 02
MAR 03
APR 04
MAY 05
JUN 06
JUL 07
AUG 08
SEP 09
OCT 10
NOV 11
DEC 12
);} foreach $k (keys %h){...

use strict;
use warnings;

undef $/;
my $file_name="unix.txt";
open (FIN, "$file_name");
my $file=<FIN>;
close (FIN);

$file=~ s{([^,]+,){3}\w+}{&clean_up($&)}ges;

open (FOUT,...

perl -i -pe 's/^\s+$//g' file

perl -lne '$/="END";print $_."END" if /0003\/02/' file

For the above code END matches with SUBEND

So you add carriage return (\n) in your code

perl -lne '$/="\nEND";print $_."\nEND" if...

perl -i -pe 's/(.*?)(tc_\d*)(.*)/$2/' input_file