Garbled lines

2011-03-24 Thread HACKER Nora
Hello, I am not sure whether this is really a Perl problem but maybe anybody can point me into the right direction: I am generating insert statements and writing them into a file for later execution. Most of the lines are written correctly: insert into serverauslastung (durchfuehrung, umgebungsna

Re: Garbled lines

2011-03-24 Thread Chas. Owens
On Thu, Mar 24, 2011 at 03:14, HACKER Nora wrote: snip > I am not sure whether this is really a Perl problem but maybe anybody > can point me into the right direction: I am generating insert statements > and writing them into a file for later execution. Most of the lines are > written correctly: s

Re: Twisting Text

2011-03-24 Thread Emeka
Thanks all, however I have the below observations. John's version is not exact for heaves ,,, it has sashes which has two "s" more than heaves. Greg's Porter Stemmer looks cool but may not go deep. Example ... for trace . I may also get rat , race , ate ,eat, crate, but he base word is trac

Re: Garbled lines

2011-03-24 Thread Dr.Ruud
On 2011-03-24 08:14, HACKER Nora wrote: characters from both statements are written alternately. Check out perlvar, look for OUTPUT_AUTOFLUSH. -- Ruud -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

RE: foreach loop

2011-03-24 Thread Chris Stinemetz
Thanks again Jim! I have one more question..lol I appreciate all your help! I would like $dist be part of the print statement, but I am not sure how to code it correctly. I am getting the following error: Global symbol "@dist" requires explicit package name at ./jim.pl line 38. Execution of

Re: shift oo

2011-03-24 Thread Rob Dixon
On 24/03/2011 02:39, Peter Scott wrote: On Tue, 22 Mar 2011 13:41:59 -0700, Randal L. Schwartz wrote: "Peter" == Peter Scott writes: my $s = Streamer->new; my $app = sub { return sub { $s->open_fh; my $writer = shift->( [ 200, [ "Content-type" => "text/plain" ], $s ] ); }; }; Peter> As i

ternary operator

2011-03-24 Thread Chris Stinemetz
I have a ternary operator that I would like to be rounded to the nearest tenth decimal place before the array is pushed. For example: I would like the current output of my ternary operator: 2.44318181818182 to be rounded to 2.4. Below is what my code looks like: #!/usr/bin/perl use warnings

Re: ternary operator

2011-03-24 Thread Shawn H Corey
On 11-03-24 04:53 PM, Chris Stinemetz wrote: I would like the current output of my ternary operator: 2.44318181818182 to be rounded to 2.4. The easiest way is to use sprintf; perl -e '$var = sprintf "%.1f", 2.44318181818182; print "$var\n";' -- Just my 0.0002 million dollars worth, S

Re: shift oo

2011-03-24 Thread shawn wilson
On Thu, Mar 24, 2011 at 4:42 PM, Rob Dixon wrote: > > On 24/03/2011 02:39, Peter Scott wrote: >> >> On Tue, 22 Mar 2011 13:41:59 -0700, Randal L. Schwartz wrote: >> >>> "Peter" == Peter Scott  writes: my $s = Streamer->new; my $app = sub { return sub { $s->open_fh; my

Re: foreach loop

2011-03-24 Thread Jim Gibson
On 3/24/11 Thu Mar 24, 2011 9:04 AM, "Chris Stinemetz" scribbled: > I would like $dist be part of the print statement, but I am not sure how to > code it correctly. The value of $dist will vary for each row. If you want to print out the correct value of $dist that corresponds to the value of t

Re: foreach loop

2011-03-24 Thread John W. Krahn
Jim Gibson wrote: On 3/24/11 Thu Mar 24, 2011 9:04 AM, "Chris Stinemetz" scribbled: $sum{$cell}{$sect}{$carr} += $rlp1 += $rlp2 += $rlp3 += $rlp4 || 0 ; } I see you are changing your program requirements. You are now accumulating multiple rlp values instead of one. This line has two pro

Re: foreach loop

2011-03-24 Thread Chris Stinemetz
Jim, I am getting really close to finishing up this program. perl is lot's of fun and I appreciate all your help! The output is giving me the data I am looking for except for the following issues: How would I add the correct code to make sure the array has a numeric value before the loop iterati

Re: foreach loop

2011-03-24 Thread Rob Dixon
On 25/03/2011 02:36, Chris Stinemetz wrote: > Jim, > > I am getting really close to finishing up this program. perl is lot's > of fun and I appreciate all your help! > > The output is giving me the data I am looking for except for the > following issues: > > How would I add the correct code to m

TS UDP packet capture using Perl.

2011-03-24 Thread Chandrashekar Bhat
Hi All, I am looking for something capturing UDP packet on a server. These are MpegTS packets, which will have TS data, PAT/PMT and Video Audio PIDs. I am able to check that packets are coming fine or not using tcpdump. system(" tcpdump -v -i eth1 dst 227.1.1.0 > file.txt & "); m

Re: TS UDP packet capture using Perl.

2011-03-24 Thread Ted Mittelstaedt
what about dvbsnoop that is command line? Ted On 3/24/2011 10:43 PM, Chandrashekar Bhat wrote: Hi All, I am looking for something capturing UDP packet on a server. These are MpegTS packets, which will have TS data, PAT/PMT and Video Audio PIDs. I am able to check that packets are coming fine o