Perl help for file handling


 
Thread Tools Search this Thread
Top Forums Programming Perl help for file handling
# 1  
Old 06-21-2011
Perl help for file handling

$# some text
$$ some text
$@ some text
$$. some text

Mg1 some text
Mg2 some text
.
.
.
Mg10 some text

The above 10 lines are to be extracted except the lines starting from $#,$$.,...

Last edited by baig.abdul; 06-21-2011 at 04:46 AM..
# 2  
Old 06-21-2011
DELETED

Last edited by yazu; 06-21-2011 at 08:36 AM.. Reason: OP changed question
# 3  
Old 06-21-2011
can some 1 explain the above line
# 4  
Old 06-21-2011
Bug

Quote:
Originally Posted by yazu
With gnu sed:
Code:
% cat testfile | perl -lane '/^Mg/ && print $F[0]' | sed 'N; s/\n/ /'

cat + perl + sed = WOW !!!

---------- Post updated at 02:06 PM ---------- Previous update was at 02:00 PM ----------

Quote:
Originally Posted by baig.abdul
$# some text
$$ some text
$@ some text
$$. some text

Mg1 some text
Mg2 some text
.
.
.
Mg10 some text

The above 10 lines are to be extracted except the lines starting from $#,$$.,...
Code:
perl -wln -e 'print if (!/^\$/ and /^MG/)' FILE.txt

With perl coming into picture, sed/grep/awk should make way for it.

Thanks and Regards,
Gaurav.
# 5  
Old 06-21-2011
what about the grep command ?

Code:
 
grep "^Mg" filename

Code:
grep -v "^\$" filename

I didnt notice the post says "Perl help for file handling"
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl : How is file handling working here??

Hi, I have a perl script which is just reading from the file but what I would like to understand is how the counter is moving without using the loop in the script. Below are the details: $ more /tmp/abc.txt This is 0 This is 1 This is 2 This is 3 This is 4 This is 5 This is 6 This... (2 Replies)
Discussion started by: siddharthjindal
2 Replies

2. Shell Programming and Scripting

Perl file handling error

Hi, I am reading and file and writting each word to other file. where I have used array to store the data. I am getting below error as "Use of uninitialized value in concatenation (.) or string at customize_split_raw.pl line 51, <IN_FILE> " Where my line 51 code is 50 foreach... (8 Replies)
Discussion started by: Beginer123
8 Replies

3. Shell Programming and Scripting

PERL error handling

I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file. perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4 How do I handle errors coming out... (1 Reply)
Discussion started by: OTChancy
1 Replies

4. Shell Programming and Scripting

Handling Parameters in Perl

Hi All, I'm pretty new to the forum and also to UNIX. I have a requirement for which I need some help. I have a script (example.script) where I get user inputs using the read command. I would need to pass the read-fetched input to a perl command (explained below) in my script. The part which... (3 Replies)
Discussion started by: bharath.gct
3 Replies

5. Shell Programming and Scripting

Perl and Sockets - Error handling

Hello all, I have created a Perl script that tries to open connections to various systems on different ports in order to see if the machines are reachable, the ports are open, etc. There appears to be a difference between Solaris (10) and Linux (RH/Oracle and Ubuntu) in the status or error it... (4 Replies)
Discussion started by: Hollinch
4 Replies

6. Shell Programming and Scripting

file handling in perl without using system command

Hi , Is there any way to achieve following using perl program (i.e without using system command). 1.system ("echo 'test' > /usr/spool/ship.csv"); 2.system ("cat /usr/ajay_test* >> /usr/spool/RAM/work/patil.csv"); 3.system("> /usr/spool/ajay.txt"); e.g for system("rm -f... (1 Reply)
Discussion started by: ajaypatil_am
1 Replies

7. Programming

XML Handling in Perl

Hi there, I'm newby in perl and XML. I can read and parse Xml with XML-Node upper XML::Parser, but how can I create XML tags and pack my individual data in it then send through socket. PLZ lead me :) Thanks in Advance. (1 Reply)
Discussion started by: Zaxon
1 Replies

8. Shell Programming and Scripting

Perl revers File handling

Hi Experts, I have a big text file, so I want read it at eof to upper bound !. after I use a fseek to go SEEK_END, is it possible to step up upperbound? Best Regards. Note that I'm used perl script. (2 Replies)
Discussion started by: Zaxon
2 Replies

9. Shell Programming and Scripting

Signal handling in Perl

Guys, I'm doing signal handling in Perl. I'm trying to catch ^C signal inside the script. There two scripts : one shell script and one perl script. The shell script calls the perl script. For e.g. shell script a.sh and perl scipt sig.pl. Shell script a.sh looks something like this :... (6 Replies)
Discussion started by: obelix
6 Replies

10. UNIX for Dummies Questions & Answers

file handling problem in perl......

Hi, I am opening a file......then i am wrting some data into it......and i am reopening the file again but ......i get a error cannot open file....... $::file= "\adder\testfile.txt" open(TEST1,$::file); some write operation close(TEST1) open(TEST1,$::file) 'I GET A ERROR CAN OPEN... (2 Replies)
Discussion started by: vivekshankar
2 Replies
Login or Register to Ask a Question