Click here to get back home

Help with script
 Home | NewsGroups | Search | About
Login Password
Register Now!
 comp.lang.perl.misc    Post an article   get this group's latest topics as an RSS feed add this group's latest topics to your My MSN content add this group's latest topics to your My Yahoo content
Subject Author Date
Help with script Andy 02-28-2008
Posted by Andy on February 28, 2008, 12:35 pm
Please log in for more thread options
 Morning Guys

I am pretty new here, tyring to learn as I go.

I have a lil project I am trying to setup

Basically : below is a piece of the file

Has three fields Seperated by ~

6081703039~1~My Own Company
3081709039~1~DeweyCheetham&Howe
9081710039~1~One Bad Firm
2081757039~1~IRSUSUCK
1082445039~1~


Basically I need the file to only show the Field that has all data

I am new so not sure if my syntax is correct

If field 3 is blank then don't show?

Can anyone help me write a Perl script to acocmplish this ?

Thanks a bunch

Posted by Paul Lalli on February 28, 2008, 12:43 pm
Please log in for more thread options
> Morning Guys
>
> I am pretty new here, tyring to learn as I go.
>
> I have a lil project I am trying to setup
>
> Basically : below is a piece of the file
>
> Has three fields Seperated by ~
>
> 6081703039~1~My Own Company
> 3081709039~1~DeweyCheetham&Howe
> 9081710039~1~One Bad Firm
> 2081757039~1~IRSUSUCK
> 1082445039~1~
>
> Basically I need the file to only show the Field that has all data
>
> I am new so not sure if my syntax is correct

You haven't shown any syntax. How can we help you fix your syntax (if
indeed it is broken) if you don't show it?

> If field 3 is blank then don't show?
>
> Can anyone help me write a Perl script to acocmplish this ?

Sure. We can indeed help. Best place to start would be by showing
what you have so far, so that we can guide you towards improving and
repairing it.

In the meantime, here's a brief pseudo-code of what I gather you want
to do:
read a file line by line
for each line,
obtain the fields separated by hyphens
if the number of fields equals 3
print the line to a new file
endif
endfor
replace the old file with the new one

Paul Lalli

Posted by Andy on February 28, 2008, 1:09 pm
Please log in for more thread options
>
>
>
> > Morning Guys
>
> > I am pretty new here, tyring to learn as I go.
>
> > I have a lil project I am trying to setup
>
> > Basically : below is a piece of the file
>
> > Has three fields Seperated by ~
>
> > 6081703039~1~My Own Company
> > 3081709039~1~DeweyCheetham&Howe
> > 9081710039~1~One Bad Firm
> > 2081757039~1~IRSUSUCK
> > 1082445039~1~
>
> > Basically I need the file to only show the Field that has all data
>
> > I am new so not sure if my syntax is correct
>
> You haven't shown any syntax. How can we help you fix your syntax (if
> indeed it is broken) if you don't show it?
>
> > If field 3 is blank then don't show?
>
> > Can anyone help me write a Perl script to acocmplish this ?
>
> Sure. We can indeed help. Best place to start would be by showing
> what you have so far, so that we can guide you towards improving and
> repairing it.
>
> In the meantime, here's a brief pseudo-code of what I gather you want
> to do:
> read a file line by line
> for each line,
> obtain the fields separated by hyphens
> if the number of fields equals 3
> print the line to a new file
> endif
> endfor
> replace the old file with the new one
>
> Paul Lalli

Good Day

Thanks Paul

Ok, I have absolutely zero So far.

Two days ago I opened the Learning Perl book and Have been trying to
learn it

Its not as hard as I thought, but I am trying to learn it as I work.

lol

Honestly the whole thing is we get a file...As the above snippet I
pasted.

And The script is only supposed to show the field that has a full line
Hence when we run the script I would only see
FIELD1 2 Field3
6081703039~1~My Own Company
> > 3081709039~1~DeweyCheetham&Howe
> > 9081710039~1~One Bad Firm
> > 2081757039~1~IRSUSUCK

Again I apologize if my whole message was written wrong.
I am still learning this, mind you I only picked up the book on Monday

Thank you for your patience.

Posted by Tad J McClellan on February 28, 2008, 7:19 pm
Please log in for more thread options


>> > I am new so not sure if my syntax is correct
>>
>> You haven't shown any syntax. How can we help you fix your syntax (if
>> indeed it is broken) if you don't show it?


> Ok, I have absolutely zero So far.


Then what syntax was it that were referring to?

To me, it sounds like you want someone to write your program for
you rather then someone to help you learn enough to write your
program yourself...


> Two days ago I opened the Learning Perl book and Have been trying to
> learn it


That's a good start.

The standard docs that ship with Perl will be very useful to you too.


> Honestly the whole thing is we get a file


Then to progress beyond the zero that you have so far,
write a program than can read the file.

(Post it here if your code does not do what you intended.)

Then modify it to output all of the lines.

Then modify it to recognize and output only the lines you want.


> Thank you for your patience.


Write some Perl code.


--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher0cmdat/"

Posted by John W. Krahn on February 28, 2008, 1:15 pm
Please log in for more thread options
Andy wrote:
>
> I am pretty new here, tyring to learn as I go.
>
> I have a lil project I am trying to setup
>
> Basically : below is a piece of the file
>
> Has three fields Seperated by ~
>
> 6081703039~1~My Own Company
> 3081709039~1~DeweyCheetham&Howe
> 9081710039~1~One Bad Firm
> 2081757039~1~IRSUSUCK
> 1082445039~1~
>
>
> Basically I need the file to only show the Field that has all data
>
> I am new so not sure if my syntax is correct
>
> If field 3 is blank then don't show?
>
> Can anyone help me write a Perl script to acocmplish this ?

while ( <FH> ) {
chomp;
my @fields = split /~/, $_, -1;

if ( 3 != @fields ) {
warn "Error: should be 3 fields, record contains " . @fields .
" fields instead.\n";
next;
}

if ( 3 != grep length, @fields ) {
warn "Error: one of the fields is empty.\n";
next;
}
# Or, just the third field:
unless ( length $fields[ 2 ] ) {
warn "Error: the third field is empty.\n";
next;
}

# process the data
}



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall

Similar ThreadsPosted
How to generate radio buttons in Perl/CGI script with call to shell script? November 23, 2007, 11:24 pm
FAQ: I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? October 6, 2004, 4:54 pm
FAQ 8.34: I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? November 3, 2004, 12:03 am
FAQ 8.34: I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? November 9, 2004, 6:03 am
FAQ 8.34 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? March 26, 2005, 12:03 am
FAQ 8.34 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? June 1, 2005, 11:03 pm
FAQ 8.34 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? October 19, 2005, 4:03 am
FAQ 8.34 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? November 17, 2005, 5:03 am
FAQ 8.34 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? September 10, 2006, 3:03 pm
FAQ 8.34 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? March 27, 2007, 3:03 pm

Our other projects:

Art Dolls, Fairies and Mermaids - Sunnyfaces.net

Roy's Linux, Programming and Search Engines messages

1-Script XML SitemapXML Sitemap