perlapi overrides system read()/ioctl() methods

2016-05-12 Thread Timothy Madden
just to give me access to the original POSIX function ? -- Thank you, Timothy Madden

Re: Counter Help

2016-02-12 Thread timothy adigun
On Feb 12, 2016 8:28 PM, "Kent Fredric" wrote: > > On 13 February 2016 at 07:39, timothy adigun <2teezp...@gmail.com> wrote: > > And hashes keys/values can't be sorted? Just saying.. :) > > > In my other message where I give an analogy to a "Fol

Re: Counter Help

2016-02-12 Thread timothy adigun
On Feb 12, 2016 6:22 PM, "Shawn H Corey" wrote: > > On Fri, 12 Feb 2016 12:08:07 -0500 > Uri Guttman wrote: > > > hashes are very easy to learn. and once you get the hang of them you > > will wonder why you waited so long. > > If keeping the data ordering is important, And hashes keys/values can'

Re: OO perl programming

2014-02-07 Thread timothy adigun
Hi On Fri, Feb 7, 2014 at 2:11 AM, Sam wrote: > On 02/06/2014 12:00 PM, Frank Landry wrote: > >> any of the oreilly books >> >> >> Frank N. Landry >> > > The oreilly "Learning Perl" teaches one to use the ampersand when calling > subroutines, Which edition of "Learning Perl" are you using

Re: Help with a RE

2014-01-09 Thread timothy adigun
Hi, On Thu, Jan 9, 2014 at 10:55 AM, Gary Stainburn < gary.stainb...@ringways.co.uk> wrote: > On Thursday 09 January 2014 09:53:35 Gary Stainburn wrote: > > On Thursday 09 January 2014 02:01:55 timothy adigun wrote: > > > Hi, > > > > > > On

Re: Help with a RE

2014-01-08 Thread timothy adigun
Hi, On Thu, Jan 9, 2014 at 11:57 AM, Peter Gordon wrote: > I'm trying do write a one line RE to strip sequence numbers off > filenames. Something like this? s/^[0-9_-]+//; > The filename can may have: > No sequence numbers >or > Start with a variable number of digits, > Followed by

Re: remotely operate web page/website

2013-11-25 Thread timothy adigun
Hi, You can check this link too http://www.perl.com/pub/2006/06/01/fear-api.html On Mon, Nov 25, 2013 at 9:08 PM, Rajeev Prasad wrote: > i need to go to a website and input some data in a specific input field, > and run the query which opens a new page, i need to download and save it as > an ht

Re: Regrex Question

2013-11-25 Thread timothy adigun
Hi, On Mon, Nov 25, 2013 at 7:55 PM, Mike Blezien wrote: > Hello, > > Regular expression have never been my strong suite > You might have to make it one. :) > so hoping to get a litte help with a line in file I need to extract a > portion of it. > > The text I need to extract from this line

Re: how to elimate special character "^@" in text by perl

2013-11-17 Thread timothy adigun
Hi loody, On Sun, Nov 17, 2013 at 10:06 AM, loody wrote: > hi all: > I try to eliminate below special character "^@" by perl in the attachment. > > I have tried "$.*^' regular expression for elimination in perl but fail > It would have been lovely to see how you tried that. > > Have anyone

Re: Installing via CPAN

2013-08-15 Thread timothy adigun
Hi, On Thu, Aug 15, 2013 at 9:34 AM, Klaus Jantzen wrote: > On 08/15/2013 10:22 AM, timothy adigun wrote: > > > Hi, > > On Thu, Aug 15, 2013 at 9:04 AM, Klaus Jantzen wrote: > >> Hi, >> >> I am trying to install DBI.pm via CPAN. >> >> After

Re: Installing via CPAN

2013-08-15 Thread timothy adigun
Hi, On Thu, Aug 15, 2013 at 9:04 AM, Klaus Jantzen wrote: > Hi, > > I am trying to install DBI.pm via CPAN. > > After > cpan> i DBI > I get > > BundleBundle::DBI(TIMB/DBI-1.628.tar.gz) > Module < DBI(TIMB/DBI-1.628.tar.gz) > 2 items found > > And what do I

Re: Help on regex

2013-08-15 Thread timothy adigun
Hi, On Thu, Aug 15, 2013 at 6:29 AM, *Shaji Kalidasan* wrote: > Greetings, > > Many thanks to Lawrence Statton, Shlomi Fish and Nathan Hilterbrand for > your detailed explanation. > > Here is the complete working code after your suggestions > > Courtesy : Lawrence Statton and Shlomi Fish > > [co

Re: parsing html

2013-08-08 Thread timothy adigun
On 8 Aug 2013 18:19, "Unknown User" wrote: > > > What would be the best module available for parsing html in your opinion? I would also say look at HTML::TreeBuilder > My intention is to parse html that contains a table of 5 columns and any number of rows, and have a hash ref like > $html->{1}->

Re: using join

2013-08-04 Thread timothy adigun
Hi Peter, On Sun, Aug 4, 2013 at 8:16 PM, Peter Gordon wrote: > On Sun, 4 Aug 2013 07:10:59 +0100, timothy adigun wrote: > >my @fruits = qw( apple pear banana ) ; > >print join '', map "[$_]", @fruits ; > > > >now you can see each element surround

Re: using join

2013-08-03 Thread timothy adigun
Uri, On Sun, Aug 4, 2013 at 6:58 AM, Uri Guttman wrote: > On 08/04/2013 01:44 AM, timothy adigun wrote: > > >> OR some like to write it like so: >> { >> local $" = ']['; >> print '[', "@fruits", ']'; >>

Re: using join

2013-08-03 Thread timothy adigun
On Sun, Aug 4, 2013 at 6:28 AM, timothy adigun <2teezp...@gmail.com> wrote: > > Hi, > You want to read: > > On Sun, Aug 4, 2013 at 5:59 AM, *Shaji Kalidasan* wrote: > >> Greetings, >> >> I am facing some difficulty using join to display the arr

Re: using join

2013-08-03 Thread timothy adigun
Hi, You want to read: On Sun, Aug 4, 2013 at 5:59 AM, *Shaji Kalidasan* wrote: > Greetings, > > I am facing some difficulty using join to display the array elements > > Here is the code snippet > > [code] > use strict; > use warnings; > > my @fruits = qw/apple mango orange banana guava/; > > #pri

Re: accessing variables in subroutines

2013-06-27 Thread timothy adigun
Hi, On 6/27/13, lee wrote: > Shlomi Fish writes: > >> Hi Lee, >> >> On Wed, 26 Jun 2013 10:18:44 +0200 >> lee wrote: >> >>> Hi, >>> >>> the following example doesn't compile: >>> >>> >>> use strict; >>> use warnings; >>> >>> >>> sub test { >>> print $counter . "\n"; >>> } >>> >>> >>> my $cou

Re: accessing variables in subroutines

2013-06-26 Thread timothy adigun
Hi On 26 Jun 2013 09:49, "lee" wrote: > > Hi, > > the following example doesn't compile: > > > use strict; > use warnings; > > > sub test { > print $counter . "\n"; The variable $counter is not known here > } > > > my $counter = 0; > while($counter < 5) { > test(); > $counter++; > } >

Re: last

2013-06-23 Thread timothy adigun
On Sun, Jun 23, 2013 at 10:37 AM, Shlomi Fish wrote: > Hi Tim, > > On Sun, 23 Jun 2013 10:21:58 +0100 > timothy adigun <2teezp...@gmail.com> wrote: > > > Hi Shlomi, > > > > > > On Sun, Jun 23, 2013 at 10:02 AM, Shlomi Fish >wrote: > > > &g

Re: last

2013-06-23 Thread timothy adigun
Hi Shlomi, On Sun, Jun 23, 2013 at 10:02 AM, Shlomi Fish wrote: > Hi Tim, > > just a note. > > On Sun, 23 Jun 2013 09:39:48 +0100 > timothy adigun <2teezp...@gmail.com> wrote: > > > Hi lee, > > Please, check my comment below: > > > > On Sun, J

Re: last

2013-06-23 Thread timothy adigun
Hi , On Sun, Jun 23, 2013 at 9:39 AM, timothy adigun <2teezp...@gmail.com> wrote: > Hi lee, > Please, check my comment below: > > On Sun, Jun 23, 2013 at 3:43 AM, lee wrote: > >> James Alton writes: >> >> > lee, >> > >> > You have

Re: last

2013-06-23 Thread timothy adigun
Hi lee, Please, check my comment below: On Sun, Jun 23, 2013 at 3:43 AM, lee wrote: > James Alton writes: > > > lee, > > > > You have a post statement if and then a code block. You can only use one > of > > two forms: > > > > print "test" if $color eq "blue"; #no parenthesis required > > if($co

Re: Perl error codes and warnings

2013-05-28 Thread timothy adigun
Hi Shaji, On Wed, May 29, 2013 at 4:19 AM, *Shaji Kalidasan* wrote: > Greetings, > > Where can I get more information on Perl's most common error codes? Is > there a single source (repository/resource) for such most frequently > encountered error codes? > > [code-1] > use strict; > use warnings;

Re: Tell me how to use CGI.pm in table

2013-05-18 Thread timothy adigun
Hi Masayoshi, On Sat, May 18, 2013 at 12:51 AM, Masayoshi Fujimoto < m.fujim...@rocketmail.com> wrote: > Hi > Please help me. > I can only see Hilary Duff. > I can not see Taylor Momsen. > I would like to use table for that. > How should I do? > > ## Here is my script. > #!/usr/bin/perl > use Mod

Re: map problems

2013-05-16 Thread timothy adigun
Hi Natxo, Please see my comment below: On Thu, May 16, 2013 at 8:57 PM, Natxo Asenjo wrote: > hi, > > in a ldap script where I get a list of values of a multivalued attribute > like this: > > @memberof = qw( cn=group1,cn=xxx,dc=domain,dc=tld > cn=group2,cn=xxx,d=domain,dc=tld etc etc) ; > Since

Re: How to install non-most recent versions of the module "warnings"

2013-05-09 Thread timothy adigun
Hi Dariusz, On Thu, May 9, 2013 at 8:13 PM, Dariusz Dolecki wrote: > I am getting an error while running cpan>install warnings, I have the > latest stable release of perl. > You don't have to install warnings is already installed for you, when perl was installed. > > cpan[1]> install warnings

Re: split

2013-05-03 Thread timothy adigun
OR On Fri, May 3, 2013 at 6:53 PM, timothy adigun <2teezp...@gmail.com> wrote: > > Hi, > Please check my reply below. > > On Fri, May 3, 2013 at 12:59 PM, Edward and Erica Heim < > edh...@bigpond.net.au> wrote: > >> Hi all, >> >> I'm using

Re: split

2013-05-03 Thread timothy adigun
Hi, Please check my reply below. On Fri, May 3, 2013 at 12:59 PM, Edward and Erica Heim < edh...@bigpond.net.au> wrote: > Hi all, > > I'm using LWP::UserAgent to access a website. One of the methods returns > HTML data e.g. > > my $data = $response->content; > > I.e. $data contains the HTML cont

Re: Perl Script for parsing log files.

2013-04-13 Thread timothy adigun
Hi, On Sat, Apr 13, 2013 at 4:50 PM, Asad wrote: > Hi All , > > Greetings ! > >I have completed O'Reily first book Learning Perl . Started writing > small perl programs . However I basically do log file analysis , hence was > thinking is there any perl code around in any of the

Re: Any alternative for substr() function

2013-04-10 Thread timothy adigun
Hi, On 10 Apr 2013 11:30, "Chankey Pathak" wrote: > > Hi Kavita, > > You may try unpack (http://perldoc.perl.org/functions/unpack.html) > unpack would not work if the OP has varying length of lines. > Also read these: http://www.perlmonks.org/?node_id=308607, > http://stackoverflow.com/questions/

Re: obfuscating code

2013-02-12 Thread timothy adigun
On 12 Feb 2013 18:56, "John SJ Anderson" wrote: > > >> On Feb 12, 2013 7:05 PM, "Rajeev Prasad" wrote: > >>> what is the advice just for obfuscating code? platform is solaris. > > I think you're getting the idea, at this point, that this is > considered a bad idea, regardless of what platform yo

Re: Extracting Columns from tab delimited files

2013-02-10 Thread timothy adigun
Hi Hori, Please check below for my comments on your code. On 11 Feb 2013 03:00, "Tiago Hori" wrote: > > Hi All, > > I am trying to force myself to not use one of perl's modules to parse tab > delimited files (like TXT::CSV), so Are you referring to module Text::CSV and it's cousin Text::CSV_XS? pl

Re: matching certain lines

2013-02-09 Thread timothy adigun
Hi, On Sat, Feb 9, 2013 at 6:06 PM, Chris Stinemetz wrote: > I would like to only work with the data that has a line with |68| in it > Does it mean even, that |68| can be anyway in the your data before any of the #END is reached? If yes, then I think you have been given a good solution. If not,

Re: reading file or pipe

2013-02-08 Thread timothy adigun
Thanks On 8 Feb 2013 07:37, "shawn wilson" wrote: > > How do I take in a file or pipe input? Please check this http://perldoc.perl.org/functions/open.html What I want is: > script.pl file.txt > or > cat file.txt | script.pl > > What I'm trying is: > my $logfile; > if (@ARGV and $ARGV[0] =~ /^-.

Re: getting perl to open pl file extension in XP

2013-02-02 Thread timothy adigun
Hi On Sat, Feb 2, 2013 at 5:29 PM, Michael Smith wrote: > I know get a new OS :) > > First I installed strawberry perl but it has no GUItest and I couldn't get > guitest to install. Then I deleted strawberry and I installed > padre-on-strawberry because it says it already contains GUItest and no

Re: other ways to parse emails from html?

2013-01-31 Thread timothy adigun
Hi, On Thu, Jan 31, 2013 at 8:49 PM, Jeswin wrote: > Hi again, > I tried to use the treebuilder modules to get emails from a webpage > html but I don't know enough. It just gave me more headaches. > Have you checked Rob's comments on your last post and how he use the module you asked ab

Re: Downloading an older version of perl

2013-01-30 Thread timothy adigun
On 30 Jan 2013 09:49, "midhun" wrote: > > I have tried that multiple times. Where exactly do you get it?? You could try this: http://www.activestate.com/activeperl/versions > > On Wed, Jan 30, 2013 at 2:01 PM, Chankey Pathak wrote: > > > "Access to older versions (Perl 5.6, 5.8, 5.10, 5.12) is

Re: some transformations on file

2013-01-20 Thread timothy adigun
I join the biblio and > item files and a summary of what i want. > What have you done yourself? Where are you having problems with your perl codes? Fine, you have shown your input and expected output [ in the attached files ], but have not shown any code whatsoever. You are likely to

Re: Regex help needed

2013-01-08 Thread timothy adigun
Hi punit jain, Please check my comments below. On Tue, Jan 8, 2013 at 1:28 PM, punit jain wrote: > Hi , > > I have a file as below : - > > { > test = ("test123"); > test = ("test123","abc"); > test = ("test123","abc","xyz"); > } > { > test1 = ("passfile"); > test1 = ("passfile","pasfile1"); > t

Re: Building a small web-app in Perl

2013-01-01 Thread timothy adigun
Dancer ---> http://search.cpan.org/~xsawyerx/Dancer-1.3110/lib/Dancer/Cookbook.pod Mojolicious::Lite ---> http://search.cpan.org/~sri/Mojolicious-3.70/lib/Mojolicious/Lite.pm etc On Wed, Jan 2, 2013 at 6:02 AM, Chankey Pathak wrote: > Hi guys, > > I have to make a simple web app which should

Re: Learning perl, understanding the basics.

2012-12-29 Thread timothy adigun
Hi Om Orakash, but, when i use > $result = $number x $string; > I don't get any output at all, just wondering why this happens, any help > would be highly appreciable. > Binary "x" is the repetition operator. To get more please see this link http://perldoc.perl.org/perlop.html#Multiplicative-Ope

Re: Pattern matching to hash

2012-12-28 Thread timothy adigun
Hello Chris, Please see my comment below. On Fri, Dec 28, 2012 at 10:24 PM, Chris Charley wrote: > > > Tim wrote in message news:1356726727.215915216@**webmail.reagan.com... > > I hope this is a simple fix. I want to check the beginning characters of >> items in a hash, and compare that to a s

Re: Pattern matching to hash

2012-12-28 Thread timothy adigun
Hi, > my $prefix_search_list = '03S,04S'; > my @prefix_array = split /\,/,$prefix_search_list; > my %prefix_hash = map {$_ => 1 } @prefix_array; > > #compare 05S to 03S and 04S > my $input_field = "05S885858"; #should not match > 1. using stricts and warnings pragma, shows clearly that there i

Re: substitution: interpolate capture buffer into variable?

2012-12-26 Thread timothy adigun
Hi, Please, check my comments below: On Wed, Dec 26, 2012 at 4:10 PM, wrote: > Hi, > > I would like to store regular expressions and substitution strings in > a hash variable. If a given string matches any of the stored patterns, > the corresponding substitution should be applied. What original

Re: Help with a regex

2012-12-21 Thread timothy adigun
Hi, On Fri, Dec 21, 2012 at 8:39 AM, Feng He wrote: > Hello, > > I have a string like: dns\.support.dnsbed.com > I want to translate it to a regular email address: dns.supp...@dnsbed.com > > > if ($string =~ /^(.*?)(? my $user = $1; > my $tld = $2; > return $user . '@

Re: question of regexp or (another solution)

2012-12-14 Thread timothy adigun
Hi, On Fri, Dec 14, 2012 at 2:53 PM, samuel desseaux wrote: > Hi! > > I work in a library and i need to have several fields in one line > > Example > > I have this > > =995 \\$xPR$wLivre > =995 \\$bECAM$cECAM > =995 \\$n > =995 \\$oDisponible > =995 \\$kG1 42171 > > > and i want in one line >

Re: Cookies - Basic Perl

2012-12-11 Thread timothy adigun
Hi, On Tue, Dec 11, 2012 at 10:47 PM, Alex Ahn wrote: > I have a problem with a certain script, as a beginner. > > #!/usr/bin/perl -w > # > # Cookie Monster > > $cookie = ""; > > while ( $cookie ne 'cookie') { > print 'Give me a cookie: '; > chomp($cookie = ); > } > > print "Mmmm. Cookie.\n"; >

Re: How to display UTF-8 output to command shell in Win7?

2012-12-01 Thread timothy adigun
Hi, > > > use warnings; > > use strict; > > use utf8; > > > > `chcp 65001`; # Oops > Ofcourse, one can argue that there is nothing wrong with that. But I think is not "RIGHT" to just discard the output return by the backtick in a void context. In that light I concur with Charles DeRykus, tha

Re: How to display UTF-8 output to command shell in Win7?

2012-12-01 Thread timothy adigun
Hi bOB, Please check my comments below On Sun, Dec 2, 2012 at 4:29 AM, boB Stepp wrote: > On Thu, Nov 29, 2012 at 8:08 AM, Charles DeRykus > wrote: > > > > >>even when warnings is turned OFF, you will get the unwanted warning > >> > > > > Just a guess because I don't know what chcp is all a

Re: How to display UTF-8 output to command shell in Win7?

2012-11-29 Thread timothy adigun
Hi, Please check my comments below: On Thu, Nov 29, 2012 at 8:55 AM, Charles DeRykus wrote: > On Wed, Nov 28, 2012 at 8:10 PM, boB Stepp wrote: > > As I have mentioned in an earlier posting, I am working my way > > (slowly) through Learning Perl, 6th edition. In this edition it uses > > UTF-8 t

Re: return something

2012-11-21 Thread timothy adigun
Hi shawn, On Wed, Nov 21, 2012 at 11:48 PM, shawn wilson wrote: > how do i return something when i've got a long regex and one of the > captures is empty? > > $_ = '"435" "" "634"; > my ($one, $two, $three)= /^ >"(\d+)"\ >"(\d+)"\ >"(\d+)" > /x; > You can do like so: $_ = '"435

Re: Using say in Padre 0.94

2012-11-16 Thread timothy adigun
Hello boB, On Fri, Nov 16, 2012 at 4:58 AM, boB Stepp wrote: > I am using Win7Pro-64bit. > > say "Another Hello World!"; > > if run from Padre v. 0.94 yields: > > String found where operator expected at HelloWorld.plx line 4, near "say > "Anothe > r Hello World!"" > (Do you need to predec

Re: simplestic perl module

2012-10-09 Thread timothy adigun
Hi, On Tue, Oct 9, 2012 at 4:54 PM, Rajeev Prasad wrote: > I want to execute this routine which is to be supplied two(sometimes > three) string variables. and will return two string variables. I want to > keep this routine in a separate file. how to do it? > >You might want to look into Per

Re: Excel::Writer::XLSX - pie chart legend's color

2012-09-28 Thread timothy adigun
Hi Rajesh, On Fri, Sep 28, 2012 at 7:13 AM, Rajesh Saha wrote: > Hi, > > I am trying to create one excel file, where chart will be included. > > Though, I am able to create this, but I could not customise the colors of > the individual legends within th pie chart. > > Can anybody give an idea , p

Re: how to handle two input files

2012-08-29 Thread timothy adigun
Hi, On 8/29/12, John W. Krahn wrote: > timothy adigun wrote: >> Hi, > > Hello, > >> On 8/29/12, timothy adigun<2teezp...@gmail.com> wrote: >> >>>> for(my $i=0; $i<= length(@startSite)-1; $i++) { >>> >>>T

Re: how to handle two input files

2012-08-29 Thread timothy adigun
Hi, On 8/29/12, timothy adigun <2teezp...@gmail.com> wrote: >> for(my $i=0; $i <= length(@startSite)-1; $i++) { > > The above could be: > for(my $i=0; $i <= scalar (@startSite); $i++) { > ... for(my $i=0; $i <= scalar (@startSite); $i++) { #

Re: how to handle two input files

2012-08-29 Thread timothy adigun
Hi Wang, Li, Please, check my comments below. On 8/29/12, Wang, Li wrote: > Dear All > > I have two input files. I want to search an element of File1 in File 2. If > the condition matched, print out something. > File1: > scaffold_1_541600 0.856102487445412 0.295040551475357 > 0.

Re: How to format the data ??

2012-08-22 Thread timothy adigun
Hi jet speed, I think is a lot better using hash or hash reference as implemented in perldsc to do this. Like so: #!/usr/bin/perl use warnings; use strict; use Data::Dumper; my $display_dev_num = {}; my $id_name; while ( defined( my $line = ) ) { chomp $line; if ( $line =~ m{\ADispl

Re: matching array elements from hash ?

2012-08-20 Thread timothy adigun
Hi Andy, On 8/20/12, Andy Bach wrote: > On Sun, Aug 19, 2012 at 4:48 PM, timothy adigun <2teezp...@gmail.com> > wrote: >> foreach my $match_value ( sort keys %stud ) { >> print $match_value, "=", $stud{$match_value}, >> $/ if $match_value ~~

Re: matching array elements from hash ?

2012-08-20 Thread timothy adigun
Hi, > Hi Tim, > > Thanks, i tried to run the code, but get the error as below. Any thing i am > missing line 17. What version of Perl are you using? For smart matching to work you must have Perl 5.10.1 Up (the 5.10.0 version behaved differently). > syntax error at ./match2.pl line 17, near "$m

Re: matching array elements from hash ?

2012-08-19 Thread timothy adigun
Hi, Please, Check my comments below. On 8/19/12, jet speed wrote: > Hi All, > > Is there a way to find matching array elements from hash. > > ex: > > @names = ( abc. def. ghi, jky; ); The above should be @names=("abc","def","ghi","jky"); OR @names=qw(abc def ghi jky); OR other variant

Re: search and replace

2012-08-18 Thread timothy adigun
Hi Irfan Sayed, Please check my comments below. On 8/18/12, Irfan Sayed wrote: > hi, > > i have string like this : > $a = '$(workspace)\convergence\trunk'; > > i need to replace $(workspace) with 'c:\p4\abc' > i wrote regex like this : > > $a =~ s/$\(workspace)/c:\\p4\\abc/; > however, the stri

Re: Catfile function not working on windows 7 machine

2012-08-08 Thread timothy adigun
Hi, Please, check my comments below On 8/8/12, Sandip Karale wrote: > Hello , > > I'm new to perl. > > I am on windows 7 64 bit machine. with Strawberry Perl (64-bit) 5.14.2.1. > > *My Code:* > > use File::Spec::Functions; > my $f="foo.txt"; > my $d="machdir"; > Instead of the above,

Re: When are brackets necessary?

2012-08-05 Thread timothy adigun
Hi Thomas, Please, check my comments below. On 8/5/12, Thomas Dean wrote: > Hi there, > > Under 'use strict;', > when can I omit the bracket and just write something like To omit the Parentheses, for the subroutine in Perl, you need to have PREDECLARED the subroutine OR you call the subroutine a

Re: case statement in perl

2012-07-31 Thread timothy adigun
Hi, On Wed, Aug 1, 2012 at 6:18 AM, Paul.G wrote: > Below is an extract from the perl script, the switch/case statement seemed > like a simple solution. > > from perldoc -q switch <== reads and I quote "...Starting from Perl 5.8, a source filter module, Switch, can also be used to g

Re: array ref as subroutine parameter

2012-07-12 Thread timothy adigun
Hi Chris, On Fri, Jul 13, 2012 at 3:28 AM, Shawn H Corey wrote: > On 12-07-12 10:25 PM, Chris Stinemetz wrote: > >> I have an anonymous array below and would like to know how to pass the >> first element to a subroutine as a parameter. >> >> push @data, [$srt,$srfc,$cfc,$cfcq,$cell,$**icell,$isec

Re: regular error

2012-07-11 Thread timothy adigun
Hi xiyoulaoyuanjia, Check my comments below. On 7/12/12, xiyoulaoyuanjia wrote: > i am very sorry ! i am intend to parse variable $a by the regular > variable $b . in below way! the below script will not give any output. > > $a="abc[0]"; > $b="bc[

Re: printing anonymous array

2012-07-08 Thread timothy adigun
Hi Chris, Please, check comments and codes below. On Sun, Jul 8, 2012 at 6:19 AM, Chris Stinemetz wrote: > Thank you very much for your responses. > > I have another question. > > I would like to replace the second element from hash1 with the second key > from %hash2 > > I believe what you

Re: printing anonymous array

2012-07-07 Thread timothy adigun
Hi, Please, I mean adjust not ajust. Thanks On Sat, Jul 7, 2012 at 10:33 PM, timothy adigun <2teezp...@gmail.com> wrote: > Hi, > Just ajust Ken's code a little and you have your output just like you > wanted it. > > On Sat, Jul 7, 2012 at 3:00 PM, Ken Slater wrote: &

Re: printing anonymous array

2012-07-07 Thread timothy adigun
Hi, Just ajust Ken's code a little and you have your output just like you wanted it. On Sat, Jul 7, 2012 at 3:00 PM, Ken Slater wrote: > On Sat, Jul 7, 2012 at 9:07 AM, Chris Stinemetz > wrote: > > Hello list, > > > > I have constructed an anonymous array with all the data I need. > > I am hav

Re: how to only read the files last 13 lines

2012-06-12 Thread timothy adigun
Hi lina, On Tue, Jun 12, 2012 at 7:08 AM, lina wrote: > Hi, > > How to read the files last 13 lines, > > only process the data of the last 13 lines, ignore the head parts. > > Thanks with best regards, > > > you can also use Tie::File like so: use Tie::File; my $file=$ARGV[0]; tie my @f

Re: Very Sluggish Code

2012-06-11 Thread timothy adigun
Hi GlenM, Please my comments below: On Mon, Jun 11, 2012 at 7:06 PM, GlenM wrote: > Hello Folks; > > I see an earlier post about sluggish code - I am not really sure what I am > doing, so I let me post my entire script here. > > ++ > > #!/usr/bin/

Re: ERROR: Argument isn't numeric

2012-06-11 Thread timothy adigun
Hi John, Please, check my comments below: On Sun, Jun 10, 2012 at 12:23 PM, John M Rathbun wrote: > Hello and thanks for volunteering your time! > > I'm returning to PERL after about a year and am struggling to remaster > some syntax: > > #!/usr/local/bin/perl > use warnings; > use strict; > us

Re: Help required to extract multiple text fields from a text string

2012-05-26 Thread timothy adigun
Hi Chris, On Sat, May 26, 2012 at 8:14 AM, Christopher Gray < christopher.g...@talktalk.net> wrote: > Hi, > > Thank you for looking to help me. Unfortunately, when I used your code > nothing was extracted. At least when I printed $1 nothing appeared. > > In order to help me learn more about Per

Re: Help required to extract multiple text fields from a text string

2012-05-25 Thread timothy adigun
Hi Chris, On Fri, May 25, 2012 at 11:53 PM, wrote: > > May you try this matching? > > while() { >next unless /^(\S+\s+)(\S+\s+)(\S+\s+).*\"(.*?)\"/; >print "$1 $2 $3 $4\n"; > } > > HTH. > > > Message Received: May 25 2012, 09:52 PM > From: "Chri

Re: insert

2012-05-07 Thread timothy adigun
On Mon, May 7, 2012 at 11:29 PM, John W. Krahn wrote: > timothy adigun wrote: > >> >> On Mon, May 7, 2012 at 8:36 AM, lina wrote: >> >> I have two files, one with >>> >>> 3 >>> 2 >>> 1 >>> >>> another is: &g

Re: insert

2012-05-07 Thread timothy adigun
Hi lina On Mon, May 7, 2012 at 8:36 AM, lina wrote: > Hi, > > I have two files, one with > > 3 > 2 > 1 > > another is: > > 3 1 > 3 2 > 6 3 > > How can I insert the first file into the middle of the second file, > This is one way to do it: #!/usr/bin/perl use warnings; use strict; my $part1

Re: ENV variable or others things

2012-04-27 Thread timothy adigun
Hi zapp, Please my comments below: 2012/4/27 Zapp > when I use bash, I can write a file ( a.sh ) like : > abc='abc' > ddd='aaa' > ... > then I can load it in other file: > source a.sh > echo $abc $ddd # it always work! > > but in perl , how can I do like that ? > > I write a file ( my_env.pl )

Re: Need help with Win32::IEAutomation

2012-04-21 Thread timothy adigun
Hi, > "alo" == alok wrote: alo>I am trying to use Win32::IEAutomation module to test one web alo>application which is HTTPS based. alo>I am unable to bypass SSL security warning. alo>Can someone help - here's the code I am using. alo>use Win32::IEAutomation; al

Re: how to install a perl module which was downloaded in windows

2012-04-20 Thread timothy adigun
Hi, > "vik" == viknesh salivahanan wrote: vik> Hi Gurus, vik>Need a help with an install in Windows server. vik>We want to install mail::sender module in a windows server but ppm -install From the Command Line interface, you can do: >perl -MCPAN -eshell cpan>

Re: Create, Merge and work with tables in MS WOrd Documents Win32::Ole

2012-04-12 Thread timothy adigun
Hello, Please check Win32::Word::Writer http://search.cpan.org/~johanl/Win32-Word-Writer-0.03/lib/Win32/Word/Writer.pm and http://search.cpan.org/~johanl/Win32-Word-Writer-0.03/lib/Win32/Word/Writer/Table.pm . I think these should help. On Thu, Apr 12, 2012 at 11:44 PM, Raito Garcia wrote:

Re: pod2html

2012-04-11 Thread timothy adigun
Hi Somu, Also, On Wed, Apr 11, 2012 at 4:02 PM, timothy adigun <2teezp...@gmail.com> wrote: > Hi Somu, > > On Wed, Apr 11, 2012 at 3:54 PM, Somu wrote: > >> I want to see the documentation of a module named Tk i installed recently. >> I wish it were in html format

Re: pod2html

2012-04-11 Thread timothy adigun
Hi Somu, On Wed, Apr 11, 2012 at 3:54 PM, Somu wrote: > I want to see the documentation of a module named Tk i installed recently. > I wish it were in html format for better reading. I'm unable to get the > best out of it in DOS mode. > Is pod2html helpful? If yes then how do i use it? > I tried

Re: Perl help

2012-04-07 Thread timothy adigun
Hi Torqued, On Sat, Apr 7, 2012 at 2:20 PM, Torqued wrote: > > > Regards.../om > > On 07-Apr-2012, at 15:28, timothy adigun <2teezp...@gmail.com> wrote: > > > Hi Om, > > > > In addition to what Rob wrote: > > On Tue, Apr 3, 2012 at 10:38 AM, O

Re: Perl help

2012-04-07 Thread timothy adigun
Hi Om, In addition to what Rob wrote: On Tue, Apr 3, 2012 at 10:38 AM, Om Prakash wrote: > Hi all, > > I have some data which is like > > A:12 > B:13 > C: 14 > > Now the data is line by line and multiple line with A B C is common though > 12 13 14 is changing, i want to take this data column

Re: split

2012-04-04 Thread timothy adigun
Hi Anamika, Please, check my comments and suggestion below: On Wed, Apr 4, 2012 at 1:57 PM, Anamika K wrote: > Hello All, > I have a file like this: > > > NM_009648,NM_001042541:10.955794504181601 > NM_019584:1 0.900900900900901 > NM_198862:1 0.835755813953488 > NM_001039093,NM_0

Re: Using the ternary operator to concat a string not working like I think?

2012-04-03 Thread timothy adigun
Hi Stan, Please check my comments below: On Tue, Apr 3, 2012 at 10:39 PM, Stan N/A wrote: > I've run into a weird issue where the ternary operator isn't doing > what I believe it normally would and need some help understanding the > issue. I'm sure I'm missing some critical point, but perhaps thi

Re: Use of uninitialized value in concatenation (.) or string

2012-03-28 Thread timothy adigun
Hi David, On Wed, Mar 28, 2012 at 4:36 PM, Kronheim, David (Contr) < david.kronh...@ftr.com> wrote: > timothy adigun [2teezp...@gmail.com] wrote: > >#!/usr/bin/perl > >use warnings; > >use strict; > > > >my @wanted = qw( dad mum children); > >

Re: Use of uninitialized value in concatenation (.) or string

2012-03-28 Thread timothy adigun
Hi Chris, On Wed, Mar 28, 2012 at 12:02 PM, Chris Stinemetz wrote: > > > > It is always better to post a complete, short, working program rather > than a > > snippet. > > > > Maybe this will make it more clear as to what I am trying to > accomplish. I simply want to test to see if @hours exists a

Re: Use of uninitialized value in concatenation (.) or string

2012-03-27 Thread timothy adigun
Hi Chris, Please, check my comment within your script and a "snap shot" script I wrote below if that could point you in the right direction, since we don't have access to your complete codes. On Wed, Mar 28, 2012 at 5:05 AM, Chris Stinemetz wrote: > Hello list, > > I am getting the results I

Re: ASCII/binary endline character trouble

2012-03-26 Thread timothy adigun
pack functions, using "B*" Template for conversion; like: while(<>){ print unpack "B*",$_; ## output in binary files and pack reverses } I hope any of this suggestions helps. But really if you ask me I will say, download and do a fresh installation of FileZ

Re: ASCII/binary endline character trouble

2012-03-25 Thread timothy adigun
Hi Fred, Please, check my comments and possible solution within your mail. On Sun, Mar 25, 2012 at 11:45 PM, hOURS wrote: > Hello all, > I write CGI scripts for my website in PERL. When I used to upload them > with my FTP > The programming language is Perl not PERL. > program I made sure to

Re: Read column

2012-03-14 Thread timothy adigun
the join function it prints what is in the array as it adds! Please don't forget the while loop works till there is no more "line" to read in from __DATA__ by $_. > > Regards.../om > > On 14-Mar-2012, at 16:54, timothy adigun <2teezp...@gmail.com> wrote: > &g

Re: Read column

2012-03-14 Thread timothy adigun
OR use: #!/usr/bin/perl -w use strict; my @column; while () { push @column, (split)[0]; } print join " ",@column; __DATA__ 1 a b c 2 d e f 3 g h i On Wed, Mar 14, 2012 at 12:19 PM, timothy adigun <2teezp...@gmail.com>wrote: > Hi Torqued, > > On Wed,

Re: Read column

2012-03-14 Thread timothy adigun
Hi Torqued, On Wed, Mar 14, 2012 at 11:51 AM, Torqued wrote: > I have a code which goes like this > > #!/usr/bin/perl -w > use strict; > > my @column; > my $k; > while () { >push @column, (split)[0]; >#print join (' ', @column); > $k=join (' ', @column); > } >

Re: How to put the match in an array

2012-03-14 Thread timothy adigun
Hi lina, On Wed, Mar 14, 2012 at 10:50 AM, lina wrote: > Hi, > > I have problem putting the match into an array, > > $ more sample.tex > aaa\cite{dehydron,dehydron1},ddd > bbb\cite{inhibitorAromaticDirect}aaa > > > my @items; > open my $fh, '<', "sample.tex"; > while(<$fh>){ >if(/cite

Re: How to end a loop

2012-03-14 Thread timothy adigun
Hi Lina, On Wed, Mar 14, 2012 at 10:15 AM, lina wrote: > Thanks all, here comes the update one: > > #!/usr/bin/env perl > > use strict; > use warnings; > use Carp qw(croak); > use autodie qw(open close); > use File::Basename; > > croak "Usage: ./bibextract.pl tex_file.tex" unless defined $ARGV[0

Re: how to extract one block out

2012-03-14 Thread timothy adigun
Hi lina, Please check my suggestion below On Wed, Mar 14, 2012 at 7:00 AM, lina wrote: > Hi, > > Here I have > > ...some blocks ... > > @article{Bi07_chen, > author = {Chen, J. P. and Zhang, X. and Fernandez, A.}, > journal = BIOINFOR, > volume = {23}, > number = {5}, > pages = {563-

Re: while: one supresses the other?

2012-03-12 Thread timothy adigun
Hi Oxy, In addition, On Mon, Mar 12, 2012 at 6:34 PM, Jim Gibson wrote: > On 3/12/12 Mon Mar 12, 2012 10:17 AM, "oxy" > scribbled: > > > Hi, > > > > i have the following file content: numbers = one two three four > > > > I run the code: > > = begin code == > > #

  1   2   3   4   5   6   7   8   9   10   >