01-16-2008
Alternatively, in Perl:
#!/usr/bin/perl
while(<>) {
chomp;
s/^\#.*//g;
s/"//g;
s/{|}//g;
s/\(.*\)//g;
s/\[.*\]//g;
s/\d*//g;
s/Sec/sec/g;
s/\s+/,/g;
s/^\s+$//g;
chop;
print "$_\n" unless(/^$/);
}
Run as 'parsefile.pl file.txt'
10 More Discussions You Might Find Interesting
1. Tips and Tutorials
A common thing in shell scripting. I came across this script that will be useful for people learning to write script.
#!/usr/bin/ksh
#
# SCRIPT: 12_ways_to_parse.ksh.ksh
#
#
# REV: 1.2.A
#
# PURPOSE: This script shows the different ways of reading
# a file line by line. Again... (0 Replies)
Discussion started by: google
0 Replies
2. Shell Programming and Scripting
Hi Friends,
I have a file in the format shown (Name followed by address:)
I need only the address part please see the output.
I have tried using nawk but I am not getting the desired output.
SAM
ADDRS 64874 FRANKLYN DR
IRVINE TX - 74394;
538 FRED ASSOCIATES
PETER
ADDRS 84734... (5 Replies)
Discussion started by: sbasetty
5 Replies
3. UNIX for Advanced & Expert Users
I have one file say CM.txt which contains values like below.Its just a flat file
1000,A,X
1001,B,Y
1002,B,Z
...
..
total around 4 million lines of entries will be in that file.
Now i need to write another file CM1.txt which should have
1000,1
1001,2
1002,3
....
...
..
Here i... (6 Replies)
Discussion started by: sivasu.india
6 Replies
4. Shell Programming and Scripting
Hi
I need to parse the file of same name which exist on different servers and calculate the count of string existed in both files.
Say a file abc.log exist on 2 servers.
I want to search for string "test" on both files and calculate the total count of search string's existence.
For... (6 Replies)
Discussion started by: poweroflinux
6 Replies
5. Shell Programming and Scripting
Hi I have the following as input
/* ----------------- backupJIL ----------------- */
insert_job: backupJIL job_type: c
command: autorep -J ALL -q > /home/autosys/...p/autosys_jil_bk
machine: machine
owner: autosys@machine
permission: gx,ge,wx,we
date_conditions: 1
days_of_week:... (7 Replies)
Discussion started by: ramky79
7 Replies
6. Shell Programming and Scripting
FILE1
2917,065A,RDF1+TDEV,2917_3RAID5,05E:0_10E:0,BL_lmwsp02,0345,xxx,3452(DR)
2917,03EA,RDF1+TDEV,2917_3RAID5,03E:0_12E:0,BL_tv00p02,0455,xxx,3ee4(DR)
2917,03EB,RDF1+TDEV,2917_3RAID5,03E:0_12E:0,BL_tv00p02,0345,xxx,2d34(DR)... (7 Replies)
Discussion started by: greycells
7 Replies
7. Shell Programming and Scripting
trying to parse out all parts of this file name.
REC=`echo "CAMXI.F0150.txt" | sed 's/.*\(*\).*/\1/'`
export "FLRECL=$REC"
FLECL=0150
I can get the numbers 0150 out of the file name. But need to capture first 5 bytes and extension. So i would export 3 variables (name, length, extension)... (5 Replies)
Discussion started by: rapalanlord
5 Replies
8. Shell Programming and Scripting
Hello,
A bioperl problem I thought could be done with awk: convert the fasta format (Note: the length of each row is not the same for each entry as they were combined from different files!) to tabular format.
input.fasta:
>YAL069W-1.334 Putative promoter sequence... (6 Replies)
Discussion started by: yifangt
6 Replies
9. Shell Programming and Scripting
Hi Experts,
I am trying to parse the following file;
FILEA
a|b|c|c|c|c
a|b|d|d|d|d
e|f|a|a|a|a
e|f|b|b|b|boutput expected:
a<TAB>b
<TAB><TAB>c<TAB>c<TAB>c<TAB>c<TAB>
<TAB><TAB>d<TAB>d<TAB>d<TAB>d<TAB>
e<TAB>f
<TAB><TAB>a<TAB>a<TAB>a<TAB>a<TAB>
<TAB><TAB>b<TAB>b<TAB>b<TAB>b<TAB>*... (7 Replies)
Discussion started by: rajangupta2387
7 Replies
10. Shell Programming and Scripting
Hi guys
I have a very long file which looks like this:
y893
89:send prctmgr exit
106:bas_services_dwn
--------------------------------------------------
y895
90:send prctmgr exit
106:bas_services_dwn
--------------------------------------------------
y897
90:send prctmgr exit... (3 Replies)
Discussion started by: aoussenko
3 Replies
LEARN ABOUT OSX
time::seconds
Time::Seconds(3pm) Perl Programmers Reference Guide Time::Seconds(3pm)
NAME
Time::Seconds - a simple API to convert seconds to other date values
SYNOPSIS
use Time::Piece;
use Time::Seconds;
my $t = localtime;
$t += ONE_DAY;
my $t2 = localtime;
my $s = $t - $t2;
print "Difference is: ", $s->days, "
";
DESCRIPTION
This module is part of the Time::Piece distribution. It allows the user to find out the number of minutes, hours, days, weeks or years in a
given number of seconds. It is returned by Time::Piece when you delta two Time::Piece objects.
Time::Seconds also exports the following constants:
ONE_DAY
ONE_WEEK
ONE_HOUR
ONE_MINUTE
ONE_MONTH
ONE_YEAR
ONE_FINANCIAL_MONTH
LEAP_YEAR
NON_LEAP_YEAR
Since perl does not (yet?) support constant objects, these constants are in seconds only, so you cannot, for example, do this: "print
ONE_WEEK->minutes;"
METHODS
The following methods are available:
my $val = Time::Seconds->new(SECONDS)
$val->seconds;
$val->minutes;
$val->hours;
$val->days;
$val->weeks;
$val->months;
$val->financial_months; # 30 days
$val->years;
$val->pretty; # gives English representation of the delta
The usual arithmetic (+,-,+=,-=) is also available on the objects.
The methods make the assumption that there are 24 hours in a day, 7 days in a week, 365.24225 days in a year and 12 months in a year.
(from The Calendar FAQ at http://www.tondering.dk/claus/calendar.html)
AUTHOR
Matt Sergeant, matt@sergeant.org
Tobias Brox, tobiasb@tobiasb.funcom.com
BalieXXzs SzabieXX (dLux), dlux@kapu.hu
LICENSE
Please see Time::Piece for the license.
Bugs
Currently the methods aren't as efficient as they could be, for reasons of clarity. This is probably a bad idea.
perl v5.16.2 2012-10-11 Time::Seconds(3pm)