Limited Time Offer!

For Less Than the Cost of a Starbucks Coffee, Access All DevOpsSchool Videos on YouTube Unlimitedly.
Master DevOps, SRE, DevSecOps Skills!

Enroll Now

Remove Control ^M from files

tpatil created the topic: Remove Control ^M from files

Single file method

perl -pi -e "s/\r//" filename.txt

Multiple File Method

find . -type f -exec perl -pi -e "s/\r//" {} \;

rajeshkumar replied the topic: Re:Remove Control ^M from files
I used to do in shell using following command

> 1,$s/^M//g

Correct me if I am wrong
Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn

tpatil replied the topic: Re:Remove Control ^M from files

Yes, this is also correct command if you want to remove ^M from single file in VI edit mode.

Tagged :

I need to a perl script

rajeshkumar created the topic: i need to a perl script
Hi ,

There is a file called test.txt what are all the different ways

BEGIN:
test 1
test 2 %%%%%%%%%% TEST TEST TEST
test 3
END:

need to grab all contents in between BEGIN and END:
Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn

rajeshkumar replied the topic: Re:i need to a perl script

Solution could be …..

#!/usr/bin/perl -w
$file=open(f, "test.txt");
$str="";
while() {$str.=$_;}
close(f);
$str =~ s/BEGIN:(.*)END:/$1/egs;
print $str

Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn

venu.madhav48@gmail.com replied the topic: Re:i need to a perl script

Please answer the below questions

1.What standard Perl modules have you made use of, and why did you use them instead of the equivalent built-in functions?

2.Write a statement that checks to make sure there are at least two command line arguments and exits with an error if not.

3.How do you find the number of elements in an array?

4.When an array is defined, PERL automatically numbers each element in the array
beginning with zero

venu.madhav48@gmail.com replied the topic: Re:i need to a perl script
Dear Rajesh,

Can u please help in answering the above questions

rajeshkumar replied the topic: Re:i need to a perl script

Hi Venu,

i will post this solution today evening…
Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn

venu.madhav48@gmail.com replied the topic: Re:i need to a perl script
Waiting for your post….

Tagged :

The difference between my and local

rajeshkumar created the topic: The difference between my and local

There is a subtle difference.

In the example below, $::a refers to $a in the ‘global’ namespace.
‘local’ temporarily changes the value of the variable, but only within the scope it exists in.
$a = 3.14159;
{
local $a = 3;
print “In block, \$a = $a\n”;
print “In block, \$::a = $::a\n”;
}

print “Outside block, \$a = $a\n”;
print “Outside block, \$::a = $::a\n”;

# This outputs In block,

# This outputs
In block, $a = 3
In block, $::a = 3
Outside block, $a = 3.14159
Outside block, $::a = 3.14159

‘my’ has no effect on the global $a, even inside the block.

$a = 3.14159;
{
my $a = 3;
print “In block, \$a = $a\n”;
print “In block, \$::a = $::a\n”;
}
print “Outside block, \$a = $a\n”;
print “Outside block, \$::a = $::a\n”;

# This outputs
In block, $a = 3
In block, $::a = 3.14159
Outside block, $a = 3.14159
Outside block, $::a = 3.14159

Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn

scmuser replied the topic: Re: The difference between my and local

With more explanation…

Both of them are used to declare local variables.
The variables declared with “my” can live only within the block it was defined and cannot get its visibility inherited functions called within that block, but one defined with “local” can live within the block and have its visibility in the functions called within that block.

Tagged :

Parenthesis After Module Name And Without Parenths

scmuser created the topic: parenthesis after module name and without parenths

What is the difference between having a parenthesis after module name and without parenthsis after module name?? i.e

Package::Module();

Package::Module;

Tagged :

Question Regarding to Eval Function

scmuser created the topic: question regarding to eval function

I have one question regarding to eval function. I know eval function is use for error checking but I am not able to understand below line.

eval \'exec perl -S $0 ${1+\"$@\"}\' if 0; $0

for script name $@ set if error occur

Tagged :

Create a flat file database using perl

scmuser created the topic: Create a flat file database using perl

How to create a flat file database as shown below

s.no name age city phone
0 hema 22 Calcutta 4312542
1 hema 21 Bangalore 2344345
2 ganesh 25 delhi 2445454
3 kartik 45 pune 4312121
4 santosh 25 Hyderabad 2254231
5 kumar 25 mysore 2344567
6 gita 34 mangalore 6532123
7 gita 32 pune 2213456

Q1.print the details of the person who r from bangalore

Q2.Replace the city name managlore to pune

Q3.prints no of person having name gita and hema

Q4.print how many are of age 25

Tagged :

Use Vs require in perl

scmuser created the topic: use Vs require in perl

Hi,

Whats difference between “use” and “require” in perl?

rajeshkumar replied the topic: Re: use Vs require in perl

use is done at ‘compile-time’ and require is done at ‘run-time’ (ie can conditionally load modules)

Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn

rajeshkumar replied the topic: Re: use Vs require in perl
More…

use is a pre-built in function in perl to Imports some semantics into the current package from the named module, generally by aliasing certain subroutine or variable names into your package such as..

* use Module VERSION LIST

* use Module VERSION
* use Module LIST
* use Module
* use VERSION

More info.. perldoc.perl.org/functions/use.html

Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn

Tagged :