Perl

decimal round off issue
Is this a bug in perl? $v = sprintf "%.1f", 2.25; print $v, "\n"; The above code produced 2.2 $v = sprintf "%.1f", 2.35; print $v, "\n"; The above code produced 2.4 I tested several versions, they all behaved the same. ... 27 Sep 2009 20:05

Newbie: Regular expresion
Hi, Given the string "one;two;three;four...", is there a easy way to print "one": $ echo "one;two;three;four..."|perl -e 'while(<>){$_ =~ /^(.*)(\;)(.*) $/ && print $1}' one;two;three Thanks in advance, Jose Luis ... 18 Sep 2009 15:37

SIGUSR1 ignored during poll() if sleep() and warn() called?
Hello, I have a non-blocking server: $SIG{PIPE} = $SIG{ALRM} = $SIG{HUP} = 'IGNORE'; $SIG{USR1} = $SIG{USR2} = sub { $Dump = 1; }; $SIG{TERM} = $SIG{INT} = sub { $Quit = 1; }; ...... sub dump { my $pkg = shift; print STDERR Dumper(\%Kids); } sub loop { my $pkg = shift; ... 9 Sep 2009 19:53

perl regex : surround tabbed numeric field by double quotes
I've a file containing tab separated values - most, but not all are quoted - and now I'm wondering how to substitute a non-quoted value like <tab>20090807<tab> by sth. like <tab>"20090807"<tab> -- MfG/Sincerely Toralf F�rster pgp finger print: 7B1A 07F4 EC82 0F90 D4C2 8936 872A E508 7DB6 9DA3 ... 14 Sep 2009 11:53

Data cleaning issue involving bad wide characters in what ought to be ascii data
Ted Byers <r.ted.byers(a)gmail.com> wrote: On Sep 3, 11:51�am, J�rgen Exner <jurge...(a)hotmail.com> wrote: Ted Byers <r.ted.by...(a)gmail.com> wrote: My program needs to store the data as plain ascii I dare to question the wisdom of this requirement. In today's world restricting your data to ASCII only is a sev... 4 Sep 2009 18:36

Data cleaning issue involving bad wide characters in what ought to be ascii data
Ted Byers <r.ted.byers(a)gmail.com> wrote: Again, I am trying to automatically process data I receive by email, so I have no control over the data that is coming in. The data is supposed to be plain text/HTML, but there are quite a number of records where the contraction "rec'd" is misrepresented when writte... 3 Sep 2009 20:40

Help: Count special words
Hello, Here's my data. Chr01 621 A A/G A Chr01 752 C C/G C Chr01 969 T C/T T Chr01 1220 A/G G G Chr01 1246 A/C C C Chr01 1263 A/G A/G A .... ... And as you see I wanna clean up the lines which the 3rd, 4th and 5th column has the same letter. For example, A A/G A, this line has the same letter A. So wha... 27 Nov 2008 21:28

OLE with outlook
Hi, I need to know how can I open Outlook in visible mode using Perl OLE. Whenever I run the scrip the Process is created in background but I need to see in explorer.. My intention here is to find launch time of outlook using Perl Profiler... Thanks ... 5 Nov 2008 18:31

What is this problem
Hi, Please help. Never faced this problem before with cpan cpan> install Cache::FastMap CPAN: Storable loaded ok Going to read /root/.cpan/Metadata Warning: Found only 0 objects in /root/.cpan/Metadata CPAN: LWP::UserAgent loaded ok Fetching with LWP: /authors/01mailrc.txt.gz LWP failed with code[400] m... 18 Aug 2008 11:33

Can't bring program to foreground via GUI
I'm trying to bring a minimized program to the foreground. The following program is a sample of what I'm trying to do. I am running on XP Pro. The paint program is launched, but minimized. Any help would be welcome. C:\Perl\Win32-GuiTest-1.54\eg>active.pl Windows:1843712: * Could not set the window id: 184... 8 Aug 2008 17:10