Re: Text munging problem

D. Bolliger wrote: > Chas Owens am Freitag, 6. April 2007 13:27: >>On 4/6/07, D. Bolliger <[EMAIL PROTECTED]> wrote: >> >>>$ perl -nle 'print join " ", map ucfirst, map lc, split' < in.txt > >>>out.txt >>There is no need to have multiple maps and the @ARGV/<> trick handles >>files as well as stdin,

Re: Retrieving a web resource (GET) for parsing

On 4/6/07, yitzle <[EMAIL PROTECTED]> wrote: If I want to parse a few web pages, what's the best way to retrieve them? Should I just run `wget "$url"`? LWP can do this for you. If you want more complicated interactions, WWW::Mechanize

Re: Text munging problem

Chas Owens am Freitag, 6. April 2007 13:27: > On 4/6/07, D. Bolliger <[EMAIL PROTECTED]> wrote: > > > $ perl -nle 'print join " ", map ucfirst, map lc, split' < in.txt > > > out.txt > > There is no need to have multiple maps and the @ARGV/<> trick handles > files as well as stdin, so there is no ne

Re: Parsing an HTML file - skipping to a line

On 4/6/07, yitzle <[EMAIL PROTECTED]> wrote: I distrust modules? Dunno. I'm a fan of C programming and like doing stuff myself. I distrust the dairy industry. I've got a yard full of grass for cows to eat, and I've seen what milking a cow looks like on Animal Planet. I can figure out how to pa

Re: Parsing an HTML file - skipping to a line

On 4/6/07, Rob Dixon <[EMAIL PROTECTED]> wrote: Tom Phoenix wrote: > > On 4/6/07, yitzle <[EMAIL PROTECTED]> wrote: > >> I'm thinking of doing something like: >> >> do { >> shift @input; >> } while ($input[0] =~ m/string-line to find/); > > Real Perl programmers don't use indices.

Re: Text parsing ?

On 4/6/07, Dr.Ruud <[EMAIL PROTECTED]> wrote: Jeff Pang schreef: > $fname =~ s/^\s+|\s+$//g; Alternative: s/^\s+//, s/\s+$// for $fname; snip Just because I like hard numbers when comparing methods: Rate one_regex two_regex one_regex 34.0/s-- -67% two_regex 10

Re: Parsing an HTML file - skipping to a line

Tom Phoenix wrote: On 4/6/07, yitzle <[EMAIL PROTECTED]> wrote: I'm thinking of doing something like: do { shift @input; } while ($input[0] =~ m/string-line to find/); Real Perl programmers don't use indices. At least, not like that. I think real Perl programmers use indic

Re: Text parsing ?

Jeff Pang schreef: > $fname =~ s/^\s+|\s+$//g; Alternative: s/^\s+//, s/\s+$// for $fname; Test: perl -wle' $s = " abc "; s/^\s+//, s/\s+$// for $s; print "<$s>" ' -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands

Re: Parsing an HTML file - skipping to a line

I distrust modules? Dunno. I'm a fan of C programming and like doing stuff myself. Granted HTML is free form, but I'm parsing a webpage whose format likely will not change anytime soon, and if it did, even if I was using a module I would still need to fix up the script. I know exactly was format t

Re: Parsing an HTML file - skipping to a line

On 4/6/07, yitzle <[EMAIL PROTECTED]> wrote: I got an HTML file I want to parse. Then there's a module on CPAN to help you. HTML is very complex stuff. I have it stored in an array or whatever. If I want to skip to a line and go from there, what's the best way? I'm not sure what "skip to a

Parsing an HTML file - skipping to a line

I got an HTML file I want to parse. I have it stored in an array or whatever. If I want to skip to a line and go from there, what's the best way? I'm thinking of doing something like: do { shift @input; } while ($input[0] =~ m/string-line to find/); (Or a while-do as needed. Whatev

Re: Text munging problem

On 4/6/07, oryann9 <[EMAIL PROTECTED]> wrote: $field =~ s/\b(.)(.*?)\b/\u$1\L$2/g; $record .= "$field|"; ** Is this regex s/\b(.)(.*?)\b/ saying boundry between any character zero or more times in $1 up to everything else non-greedy end word boundry in $2 sort of confus

Re: Text munging problem

$field =~ s/\b(.)(.*?)\b/\u$1\L$2/g; $record .= "$field|"; ** Is this regex s/\b(.)(.*?)\b/ saying boundry between any character zero or more times in $1 up to everything else non-greedy end word boundry in $2 sort of confused since your end goal is to CAPS first letter i

Retrieving a web resource (GET) for parsing

If I want to parse a few web pages, what's the best way to retrieve them? Should I just run `wget "$url"`?

Re: Text munging problem: question on while loop differences

On 4/6/07, Jeff Pang <[EMAIL PROTECTED]> wrote: > >So, if I put a filehandle in the diamond, instead of empty diamond, >does that mean that the first would operate line by line and the >second would pull the whole file into memory? > When the diamond(<>) is appeared with while(),it means you re

Re: Text munging problem: question on while loop differences

On 4/6/07, Jeni Zundel <[EMAIL PROTECTED]> wrote: So, if I put a filehandle in the diamond, instead of empty diamond, does that mean that the first would operate line by line and the second would pull the whole file into memory? No, both while loops read line by line. The difference is where t

Re: Text munging problem: question on while loop differences

> >So, if I put a filehandle in the diamond, instead of empty diamond, >does that mean that the first would operate line by line and the >second would pull the whole file into memory? > When the diamond(<>) is appeared with while(),it means you read the file line by line. ig,while(){ .. } an

Re: Text munging problem: question on while loop differences

On 4/6/07, Jeni Zundel <[EMAIL PROTECTED]> wrote: What is the difference between: a. while(defined(my $line = <>)) ... and b. while(<>) snip while (<>) {} is shorthand for while (defined ($_ = <>)) {} The biggest diff

Re: Text munging problem: question on while loop differences

So, if I put a filehandle in the diamond, instead of empty diamond, does that mean that the first would operate line by line and the second would pull the whole file into memory? Thanks much, Jen On Apr 6, 2007, at 9:31 AM, Jeff Pang wrote: : Re: Text munging problem: question on while l

Re: Text munging problem: question on while loop differences

: Re: Text munging problem: question on while loop differences > >What is the difference between: > >a. while(defined(my $line = <>)) ... > >and > >b. while(<>) Hello, When you say "my $line = <>" you read the content from i

Re: Text munging problem: question on while loop differences

What is the difference between: a. while(defined(my $line = <>)) ... and b. while(<>) On Apr 6, 2007, at 7:52 AM, Rob Dixon wrote: Why shift and unshift? Just use a for loop: #!/usr

Re: Text munging problem

Chas Owens wrote: On 4/5/07, Glenn Booth <[EMAIL PROTECTED]> wrote: snip My failed approach so far: "While" loop to read file line by line "Split" each line using delimiter (pipe in this case) Put the text fields into an array "Shift" each element out of the array Run a regex to upper case the

Re: Text munging problem

On 4/6/07, D. Bolliger <[EMAIL PROTECTED]> wrote: snip $ perl -nle 'print join " ", map ucfirst, map lc, split' < in.txt > out.txt snip There is no need to have multiple maps and the @ARGV/<> trick handles files as well as stdin, so there is no need to use < perl -lne 'print join " ", map { uc

Re: Text munging problem

Glenn Booth am Donnerstag, 5. April 2007 23:10: > Hi All, Hi Glenn > I'm a two-week perl newbie, trying to get my head around text > handling. I keep getting sent badly formatted text files, which > I have to 'repair' so that I can use them to feed an Oracle > database. They are typically a few t

Re: Text munging problem

On 4/5/07, Glenn Booth <[EMAIL PROTECTED]> wrote: snip My failed approach so far: "While" loop to read file line by line "Split" each line using delimiter (pipe in this case) Put the text fields into an array "Shift" each element out of the array Run a regex to upper case the first character Shi

Re: Text munging problem

Glenn Booth wrote: > I need to sort out the cases of the text fields (BOOK TITLE) > and ( a book about cats ) and render them to "Title Case" (first > character upper case for each word). > Anyone have an elegant way? ucfirst() does what you want: echo "hello world" | perl -ne 'print join " ", ma

Re: Text parsing ?

>I;m trying to parse one text file and insert it into database . >Here is the example of Data >CONTACT : Chemico Ltd. >MANAGER : Michael Kor >STATE: Blagoevgrad >CODE : 4005 >City: Blagoevgrad >Address : Neupaoer Str. 1 >Phone : 073/880755 >Name : Valeri lItov lItov - Cadr >Name : Nikoilai Miche

Text parsing ?

Hi to all, I;m trying to parse one text file and insert it into database . Here is the example of Data CONTACT : Chemico Ltd. MANAGER : Michael Kor STATE: Blagoevgrad CODE : 4005 City: Blagoevgrad Address : Neupaoer Str. 1 Phone : 073/880755 Name : Valeri lItov lItov - Cadr Name : Nikoilai Michev