Help with "install_driver(Oracle) failed" error message

Greeting, In the infinite wisdom our company, without warning completely uninstalled Active Perl on all of our Windows servers (I believe it was v5.8).. They claimed it was a security risk, but I suspect new licensing fees were the main incentive.. Regardless, I installed Strawberry Perl, 64 bit

Re: Storing Output file.

Thanks for your kind words. -Frank On Tue, Feb 2, 2016 at 2:43 PM, Jonathan Harris wrote: > Hi Frank, > Really don't leave! Cyber-bullying is pathetic and the reserve of the > ignorant. > Just like an annoying itch, it's there and must be ignored. > This community is

Re: Storing Output file.

Hi Andrew, I felt bad the way he used the language and i am leaving from this community...Thanks for all your help! -Frank On Mon, Feb 1, 2016 at 8:42 PM, Andrew Solomon wrote: > Hi Everyone > > As you can see from the description of this list > http://learn.perl.org/faq/be

Re: Storing Output file.

Thanks a lot Jonathan, i will set the env properly then i will try. -Frank On Fri, Jan 29, 2016 at 3:36 PM, Jonathan Harris wrote: > Hi Frank, > Please would you remember to Reply All to the list as well? > > It just seems that the path is not included in @INC > You can check

Re: Storing Output file.

Hi Team, I tried it was working. -Franky On Fri, Jan 29, 2016 at 8:21 AM, Frank Larry wrote: > Thank you so much for the solution you people provided. :) > > Warm Regards, > -Franky > > On Thu, Jan 28, 2016 at 8:49 PM, Malisetti Ram Murthy < > malisettirammur...@g

Re: Storing Output file.

Thank you so much for the solution you people provided. :) Warm Regards, -Franky On Thu, Jan 28, 2016 at 8:49 PM, Malisetti Ram Murthy < malisettirammur...@gmail.com> wrote: > Hi Frank, > > Invoke below command from your perl program to replace the string "Debug" &g

Re: Storing Output file.

Thank a lot brothersi will try all the things and update you.. -Frank On Thu, Jan 28, 2016 at 11:27 PM, Jonathan Harris via beginners < beginners@perl.org> wrote: > Hi, > I found that this works, assuming that the module is installed. > > #!/usr/bin/perl > use warnings

Storing Output file.

Hi Team, could you please let me? i have a file which contains "Debug", i would like to replace debug to "Error", when i ran the below program the out showing Error message but how to save the output with new changes. Could you please tell me how to fix it? open(FILE, "){ print "Before substi

read/write to command line opened as a file

Ok, I am trying to do something I initially thought would be fairly easy to do but am running into lots of trouble. I have a db2 instance running on a Windows 2k8r2 Enterprise server, using ActivePerl V5.8.. I wanted to open a file handle in read/write mode to run cmd.exe.. I then need to w

Doubt

When i try to install Alias.pm file from environment i was getting an error message as cannot locate alimas.pm file, then i checked in cpan it was showing, In case how to fix this and update the Alias.pm file. Frank

Re: Module Not Getting Installed

Sorry Shlomi it is our own module, i am still working on this. once it is update i will get the details. -Franky On Fri, Mar 27, 2015 at 3:58 PM, Shlomi Fish wrote: > Hi Franklin, > > On Fri, 27 Mar 2015 14:00:05 +0530 > Frank Vino wrote: > > > Hi Team, > > >

Module Not Getting Installed

Hi Team, When i trying to install FWConfig.pm from cpan it is saying that unable to locate. Could you please let me know how to download this module? -Franklin

Re: Regular Expression Help.

Thanks a lot Simon -Frank On Wed, Mar 25, 2015 at 5:44 PM, Simon Reinhardt wrote: > Hi Frank, > > when first learning regexps I read the section "In the World of Regular > Expressions" in the Lama-Book [1]. If you find this introduction to > slow, you might also t

Regular Expression Help.

Hi Team, How to understand Regular Expression in a easy way? Thanks, Frank

Which Is Good?

Activeperl or Strawberry Perl. = Which is good to use? -Frank

Re: Unable to call SSH module.

Thank you so much let me try On Thu, Mar 12, 2015 at 10:23 PM, Zach Tuttle wrote: > You need to install the ssh module on windows > > Sent from my iPhone > > On Mar 12, 2015, at 9:25 AM, Frank Vino wrote: > > Hi, > > Here is my code. In Cpan i have installed ssh

Unable to call SSH module.

$stdout, $stderr, $exit) = $ssh->cmd($cmd); Output: Can't locate Net/SSH/Perl.pm in @INC (you may need to install the Net::SSH::Perl module) (@INC contains: C:/Perl64/site/lib C:/Perl64/lib .) at ssh.pl line 3. BEGIN failed--compilation aborted at ssh.pl line 3. -Frank

RE: reading a hash of arrays

Subject: Re: reading a hash of arrays On Wed, 19 Nov 2014 17:03:40 -0600 "Frank K." wrote: > I can't do @array1 = @hash{one}; @array1 = @{ $hash{one} }; $hash{one} contains a reference to an array. By dereferencing it with @{ ... }, you get the array. -- Don't

reading a hash of arrays

Have a hash of arrays.. i.e. $hash{one}[0] = "value 10"; $hash{one}[1] = "value 11"; $hash{one}[2] = "value 11"; $hash{one}[3] = "value 13"; $hash{one}[0] = "value 20"; $hash{one}[1] = "value 21"; $hash{one}[2] = "value 22"; $hash{one}[3] = "value 23"; If I had two arrays and wanted

Re: Planning to buy Hard Copy Book

Thanks a lot guys..:) -Frank On Wed, Jun 11, 2014 at 7:30 PM, Sam wrote: > Depends on your level. I enjoyed "Beginning Perl" by Curtis Poe. It covers > alot of areas in perl, from the different object frameworks to a really > nice section on testing. > > If you really

Planning to buy Hard Copy Book

Hi Team, Could you please let me know which publisher and author name are good in Perl Book, I am planning to buy a hard copy. Thanks, Vino

Re: OO perl programming

; > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Frank N. Landry

Re: Kind Help

Thanks for your help. -Vino. On Fri, Oct 4, 2013 at 10:14 AM, Shlomi Fish wrote: > Hi Vino, > > On Fri, 4 Oct 2013 09:12:20 +0530 > Frank Vino wrote: > > > Hi All, > > > > > > Here is my request, > > > > I would like to hit my firewall wi

Kind Help

Hi All, Here is my request, I would like to hit my firewall with IP address and Domain users for 100 Users. I have firewall and active directory(100 Users) but i do not have 100 Client PC's. I am planning to do a SSH/Remote session to hit the firewall with IP address and Doamin Users. I would au

Need to login/logout for Domain Users

Hi All, Here is my requirement could you please help on this. I have Domain Controller for 100 users, and i have client PC (windows 7), i would like to login with multiple users for every 5 minutes in a same client PC. Thanks, Vino

Hello

Could you please let me know the perl script how to find DNS IP address of system.? Thanks, -Vino

Re: Getting Started.

Thank you All -Vino On Wed, Jun 26, 2013 at 9:31 PM, Chankey Pathak wrote: > John is right. > > You should go for "Beginning Perl by Ovid". It's really a nice book for a > beginner in Perl. > > -Chankey > > > On Wed, Jun 26, 2013 at 9:27 PM

Re: Please exempt the book Modern Perl from Web Commercials on http://perl-begin.org/

Thanks a lot Shlomi.. :) Regards, Vino On Wed, Jun 26, 2013 at 4:55 PM, Shlomi Fish wrote: > Hi Vino, > > On Wed, 26 Jun 2013 16:43:38 +0530 > Frank Vino wrote: > > > Dear All, > > > > Could you please recommend good beginners book to start, and also >

Re: Fw: Please exempt the book Modern Perl from Web Commercials on http://perl-begin.org/

Dear All, Could you please recommend good beginners book to start, and also looking for videos. Thanks, Vino On Wed, Jun 26, 2013 at 4:30 PM, Rob Dixon wrote: > On 26/06/2013 10:18, Franklin Lawerence wrote: > >> >> Hi, >> >> Could you please let me know how to reverse a string without u

RE: What does $$ mean ?

Gosh, I always thought "$$" is what you have to pay when you get a divorce .. flk k -Original Message- From: Dr.Ruud [mailto:rvtol+use...@isolution.nl] Sent: Friday, May 17, 2013 7:47 AM To: beginners@perl.org Subject: Re: What does $$ mean ? On 17/05/2013 14:39, *Shaji Kalidasan* wrote

RE: local commands in Win2008R2

ndows version info and set the path accordingly.. lots of fun.. Anyway thanks again for the reply and I sure hope what I found helps someone in the future.. Flk k From: timothy adigun [mailto:2teezp...@gmail.com] Sent: Friday, February 03, 2012 2:35 PM To: Frank Kleinburg Subject: Re: local

local commands in Win2008R2

Folks, Forever I have used the following to run an external command on a Winders box: `cluster group "$Name"` (where name is the name of the cluster group in question) But today I had to run a script which works on previous versions of Windows, is failing on Windows 2008 R2.. Debugi

Re: File health check on *nix system using stat

n $discard for ( my $i = 0; $i < $stat[7]; $i++ ) { my $r = sysread( $T, $discard, 1 ); if ( $r != 1 ) { close $T; return 0; } } close $T; return 1; } and I cut the meta data checking part in the previous post. Thanks Frank On Sun, Dec 11, 2011 at 12:39 AM, Peter Scott wrote: > On Sat, 10 De

File health check on *nix system using stat

entries is 0 or undefined, then we declare this file to be NOT ok . and my question would be about this logic, why are we checking all of them with a AND relationship rather than OR, or maybe something else(like checking all the 0-12 entries) ? Thanks Frank

Re: Run perl scripts in Windows

i believe most group policy deployments doesn't allow personal created files on root directory of system disk. On Tue, Oct 18, 2011 at 5:16 PM, Natxo Asenjo wrote: > On Oct 18, 2011 3:07 PM, "Remy Guo" wrote: > > > > hi all, > > I have a Perl script in Windows but my system administrator doesn't

RE: Need help getting data from a structure..

List, First I would like to thank all who provided input.. With the help of the this list, I was able to figure out what I needed to change to get it all working.. And we have successfully kept VB out (Yippy!).. Now to the solution (note: I have copied the little test code and its output below..

Need help getting data from a structure..

Hello list, I've been playing with perl going back to the 4.x days, mostly simple scripts to monitor server or application daemons, kick off and manage backups, or read log files.. While some of these programs are fairly complicated, none have more than just tickled the more sophisticated features

Re: Search and replace w/ ignoring arbitrary characters

in f[##o]o(ba##r) ? again, thanks for any ideas and hints, Frank On 9 Aug., 02:34, jwkr...@shaw.ca ("John W. Krahn") wrote: > Frank Müller wrote: > > dear all, > > Hello, > > > i want to make some search and replace within a string where I can > > define a s

Search and replace w/ ignoring arbitrary characters

ty. Is it possible to make this kind of search and replace with a regular expression, or does somebody know of an existing perl module which can do this? tia, Frank -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

install patch to module Text::LevenshteinXS

dear all, I want to make use of the module Text::LevenshteinXS, I installed it via perl -MCPAN -e 'shell'. While using it I noticed that the module isn't UTF safe, so I searched the internet and found: https://rt.cpan.org/Public/Bug/Display.html?id=36685 There one can download a patch for this mo

Unicode::Collate string replacements and whitespace

rk. How can I get this working with whitespace in the search string? Thanks for any hints, Frank -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: 1-line text file with numbers, need to add to them

On Feb 4, 4:35 pm, jwkr...@shaw.ca ("John W. Krahn") wrote: > Chris wrote: > > I need some help with this problem. > > I've got a text file datafile with 1 line of data comprised of 30 > > different numbers delimited with ~s. > > > I need to open this file, grab this line of data, split it into > >

Re: 1-line text file with numbers, need to add to them

For instance, the below is your data file --data.txt 12~s1~s314~s5677~s899~s0~s Here are the codes: #!/usr/bin/perl open(DATA,"data.txt"); while() { $number=$_; # print $number; while ($number =~ /([0-9]+)~s/g){ printf ("%d\n","$1"); } } close(DATA); On Feb 4, 7:27 am, cacogg...@gmail

Re: How to get the name of the variable a reference is "pointing" at

Hi Paul, just another level of indirection - should have known that :-) - many thanks! rgds! Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

How to get the name of the variable a reference is "pointing" at

t the name of what $ref is actually pointing at currenty (%Hash1, Hash2, Hash3)? - thanks! rgds! Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: regexp with capture of multiple lines matching a line pattern

})[ ]+(\\d+)(?{\ $APNdata{'EQOSID'} = \$^N;})[ ]+(NO|YES|MAYBE)(?{\$APNdata{'VPAA'} = \ $^N;})[ ]+(IPV4)(?{\$APNdata{'PDPTY'} = \$^N;})[ ]+(\\d+)(?{\ $APNdata{'PDPID'} = \$^N; push [EMAIL PROTECTED], {\%APNdata};})\\n)* [...] rgds! Frank -- To unsubscribe,

Re: regexp with capture of multiple lines matching a line pattern

ops. What about the option to use Regexp::NamedCaptures? Is there a way to stack results with this? Or does it require the new Perl5.10 / Perl6 features using "perl- plugin" via (?{...}) rgds! Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mai

Re: regexp with capture of multiple lines matching a line pattern

es (" . scalar(@values) . "):\n"); foreach (@values) { printf ("\t$_\n"); } printf ("\n"); It just prints: ### the input is ### extracted values (7): specific Headline 11 12 13

regexp with capture of multiple lines matching a line pattern

didn't work. Now i am desperately trying to find out, if there is possible to use a proxy "push_backer" var to @array for assignment, because i guess i can not just use some @array to save multiple hits? But actually i would like an easier way to do this. rgds! Frank -- To unsubs

Re: book on perl

://www.perl.org/books.html>. Regards, Frank -- In protocol design, perfection has been reached not when there is nothing left to add, but when there is nothing left to take away. -- RFC 1925 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additi

RE: clamav stats script help

Maybe your machine is clean - there are no viruses to detect? -Original Message- From: Chris [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 24, 2006 6:55 PM To: beginners@perl.org Subject: clamav stats script help I've downloaded a script that is supposed to output stats on virus's

Re: How to manage around 1000 entries which will constantly be changing

" with a "new" entry, doesn't the array need to be resorted? How does the cost of searching an unsorted array compare to resorting on every update and searching a sorted array. Tom's idea about growing to 200, then chopping back to 100 also sounds interesting. Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Whimsical Question

At 08:03 AM 3/29/06, Ryan Frantz wrote: _Is_ there a name for '$_' ? http://www.rexswain.com/perl5.html $_ The default input and pattern-searching space. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: SMS or text messaging

lete ignorance on the subject. You can send SMS messages to a cellphone via email: http://www.funsms.net/email2sms.htm But I suppose there could be other ways that I don't know about. Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTEC

Re: Character class for ?&*%$@ etc...

At 11:19 AM 3/16/06, Colin Robinson wrote: Can anyone tell me if I can short hand ?&*%$@ etc. as matches for my regular expression. I don't want spaces, new line, carriage returns, tabs etc. to be matched. google "perl regexp". All top five results have the answer. -- To unsubscribe, e-mail:

Re: error messege: "subroutine Cwd::fastcwd redefined"

ed is the file created by perlbug. Wish it helpful. -F Tom Phoenix wrote: On 2/27/06, Frank Lee <[EMAIL PROTECTED]> wrote: subroutine Cwd::fastcwd redefined" at C:/per/lib/Cwd.pm line 700 subroutine Cwd::getcwd redefined at C:/per/lib/Cwd.pm line 700 subroutine Cwd::abs_path redefine

Re: error messege: "subroutine Cwd::fastcwd redefined"

Chas Owens wrote: On 2/28/06, Frank Lee <[EMAIL PROTECTED]> wrote: Chas Owens wrote: On 2/27/06, Frank Lee <[EMAIL PROTECTED]> wrote: When I add "use Bio:Perl" in my script and run it in windows XP, it complains: subroutine Cwd::fastcwd redefined"

Re: error messege: "subroutine Cwd::fastcwd redefined"

Chas Owens wrote: On 2/27/06, Frank Lee <[EMAIL PROTECTED]> wrote: When I add "use Bio:Perl" in my script and run it in windows XP, it complains: subroutine Cwd::fastcwd redefined" at C:/per/lib/Cwd.pm line 700 subroutine Cwd::getcwd redefined at C:/per/lib/Cwd.pm li

error messege: "subroutine Cwd::fastcwd redefined"

cript can still works. Could you tell me how to fix it? My perl, v5.8.7, windows, xp sp2. The script works fine under Linux OS. Thanks a lot. Best Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: DBI problem

At 11:07 PM 12/13/05, john wrote: I can't see it in emacs. Then my guess was off-base. What do you mean by "dump the last line of the file in binary"? Sounds like something I need to learn about. tail -2 filename | cat -v -v Displays non-printing characters so they are visible. --

Re: DBI problem

At 02:30 AM 12/13/05, john wrote: I'm attempting to loop thru an input file, executing a SELECT query with the value from each line. The script works for the first iteration, and then gives these error messages: DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at ./describe_s

chop/chomp/?

What's the correct way to trim trailing newlines from a text file that might be either DOS or UNIX format for newlines? The docs (and my experience) is that chomp only works properly if the text file is native to the current operating system? I'm running on *bsd system. -- To unsubscribe, e-

Re: which is more effective between map and foreach?

At 06:06 AM 12/6/05, Jennifer Garner wrote: I have a small script,when it run,it generate much more lines and put them into a file. The code for printing I writed: map { print RESULT $_,":",$ips{$_},"\n" } sort { $ips{$b} <=> $ips{$a} } keys %ips; Certainly, I can write that code with

RE: You've read the Llama, now what?

Now that is REALLY helpful! -Original Message- From: swayam panda [mailto:[EMAIL PROTECTED] Sent: Monday, November 28, 2005 3:59 AM To: beginners@perl.org Subject: Re: You've read the Llama, now what? Hi There is Saying I See and I Forget I Hear and I Remember I Do and I Understand

processing at preset times

icate with each other. If this could work, the processing script would probably still need a thread to do communication with timer script anyway. Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.

Re: hash of hash - copy

At 03:17 PM 11/4/05, Jeff 'japhy' Pinyan wrote: On Nov 4, Frank Bax said: $aSuit{0}{'a'} = 'A'; $aSuit{0}{'b'} = 'B'; $aSuit{0}{'c'} = 'C'; $aSuit{1}{'a'} = 'D'; $aSuit{1}{'b'} = 'E';

hash of hash - copy

#!/usr/bin/perl -w use strict; my %aSuit = (); $aSuit{0}{'a'} = 'A'; $aSuit{0}{'b'} = 'B'; $aSuit{0}{'c'} = 'C'; $aSuit{1}{'a'} = 'D'; $aSuit{1}{'b'} = 'E'; $aSuit{1}{'c'} = 'F'; Now I want to make $aSuit{1} a copy of $aSuit{0} %aSuit{1} = %aSuit{0}; This doesn't work (syntax error), w

Re: map/array performance

At 10:07 PM 10/23/05, Jeff 'japhy' Pinyan wrote: On Oct 23, Frank Bax said: my $aval=''; map { $aval=$aval.sprintf("%4d",$aSuit{$a}{$_}); } @f_seq; my $aval=''; foreach $f (@f_seq) { $aval=$aval.sprintf("%4d",$aSuit{$a}{$f});

Re: map/array performance

At 04:35 PM 10/23/05, Frank Bax wrote: At 02:11 PM 10/23/05, John W. Krahn wrote: Frank Bax wrote: > my $snew = > sprintf("%4d%4d",$aSuit{$new}{'rescap'},$aSuit{$new}{'resval'}); > my $slow = > sprintf("%4d%4d",$aSuit{$lo

Re: map/array performance

At 02:11 PM 10/23/05, John W. Krahn wrote: Frank Bax wrote: > my $snew = > sprintf("%4d%4d",$aSuit{$new}{'rescap'},$aSuit{$new}{'resval'}); > my $slow = > sprintf("%4d%4d",$aSuit{$low}{'rescap'},$aSuit{$low}{'res

map/array performance

Rather than create/store/sort many billion entities, my script creates these entities dynamically and maintains a hash of the "top 100". As each entity is created, I search my hash for the entity with "lowest" value, based on a number of elements in the hash; then "low" element gets replaced w

Perl equivalent of JavaScript match

be able to grab each match and store it in an array (in as few lines as possible). I was told that split has an option that grabs delimiter matches instead of dropping delimiters and returning what's between them. Any ideas? Thanks. Frank ___

multiple overlapping matches in a regex

h to be 'ELL'. I always thought regexes walked through the string char by char. So what am I doing wrong here? Thanks. ~Frank __ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

here tag and internal variable

ML___"; Content-type: text/html http://www.w3.org/TR/html4/loose.dtd";> Hotspot Tracker in the link tag Perl thinks the var name is $get_to_indexcss... Thanks. ~Frank __ Yahoo! Mail - PC Magazine Editors

Reverse If and Normal Else

quot; ...keeps coming up. Is there a way to keep the reverse if and use an else (or something like it) that anyone knows of? Thanks. ~Frank __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -

getting error from backtick shell execution

rror handling... But for now I'd like to be able to grab an error if possible. The error I'm getting is from ssh not having the proper keys for a host. There's about half a screen worth of stuff displayed with it. (This is what I see wh

Re: how to use perl module to do Z-scores test (Say, Wilcoxon)

Hi, Chris, That's very nice! It is very helpful for me. I can use the Z-test in the Mastering Algorithms with Perl. Thanks very much! Frank On 6/7/05, Chris Devers <[EMAIL PROTECTED]> wrote: > On Tue, 7 Jun 2005, Frank Lee wrote: > > > Can anybody give me some idea

how to use perl module to do Z-scores test (Say, Wilcoxon)

Can anybody give me some ideas about how to use perl module to do Z-scores test (Say, Wilcoxon).? Thanks very much! -- Do not guess who I am. I am not Bush in BlackHouse -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <

Re: Problem with Foreach in If Statement...

please try this one: #tested in linux #!/usr/bin/perl -w use strict; my @names = qw( fred barney betty wilma dino ); print "Enter some numbers 1 to 5, one per line, then press ctrl D:\n"; chomp (my @numbers = ); foreach (@numbers){ if ($_ < 6){ print "$names[$_ - 1]\n"; }else{

a question about print in array

I met an interesting problem recently and am expecting your kind advice. my input file (for_test) is like as follows. I wish add a ">" to the first line (before the word blue) and remove ">" at the last line. # ---begining of the file, this line is not included in the file---# blue sky ski

Re: How to get the numeric index of a element in an array

Thanks! Mr. Clarkson's program really works. but because my array (data) is more complex. So I made an adjustment but it did not work very well. BTW: John W. Krahn suggested I can change Input Record Separator, it does work and help me to solve the problem! But I just wonder why the foll

Re: How to get the numeric index of a element in an array

at I want from such a cyclopaedia. Thanks Frank bright true wrote: hello , you can do something like the following my $counter = -1; foreach (@array){ $counter++; if($_ =~m/$word/){ print "Element ID is $counter";} } On 5/15/05, *Frank* <[EMAIL PROTECTED] <mailto:[EMAIL PR

Re: How to get the numeric index of a element in an array

ndex+$n]"; $n +=1; }else { # if the element begins with ">", end the loop last; } } } But I do not how to get the numeric index of $elemnet.Or is there any other way to jump into next element? any suggestions are appreciated! Frank Octavian Rasnita wrote: Hi, Let's

Re: How to get the numeric index of a element in an array

Ing. Branislav Gerzo wrote: Frank [F], on Sunday, May 15, 2005 at 19:45 (+0800) typed: F> If i know the element of array, can I get the numeric index of this F> element? Exist a way, but it is better using hash. In arrays you have to iterate over every element. ~~~Pls tell me t

How to get the numeric index of a element in an array

Hi, all If i know the element of array, can I get the numeric index of this element? Thanks Frank -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

how to get data from an array

Hi, all, I am a newbie for perl. I am learning perl for my biological data analysis. Now, I have a data look like this: >I do not need-1 .(dots mean data here) . . >I do not need -2 .. . >What I

Re: a problem about GD

Thanks, Zentara, The problem was fixed. zentara wrote: On Tue, 10 May 2005 12:31:34 +0800, [EMAIL PROTECTED] (Frank) wrote: Sorry if my question is stupid or too simple. I have google the answer but got too much information I test my GD module to check whether it can be used since there are

a problem about GD

Sorry if my question is stupid or too simple. I have google the answer but got too much information I test my GD module to check whether it can be used since there are too many errors when install GD. the test program is copied from a website: ** #!/

RE: Execute commands on the servers through a cgi script

-Original Message- From: Manav Mathur [mailto:[EMAIL PROTECTED] Sent: Sunday, January 09, 2005 2:29 AM To: beginners@perl.org Subject: RE: Execute commands on the servers through a cgi script Norton AntiVirus deleted the following email message because it was infected with a virus: Fro

Re: String to Character Array

At 23:48 06/12/2004, you wrote: On Mon, 6 Dec 2004, Frank Westfield wrote: > Is there a Perl equivalent of Java String.toArray method? > > I need to get an Alpha-Numeric string (16 plus consecutive characters) > into an array or hash of characters to allow manipulation of the

String to Character Array

would be welcome. Regards Frank Westfield - Managing Consultant -- FW Associates - IT Consultants Address: 4 Dell Close, Broadstone, Dorset

String to Character Array

would be welcome. Regards Frank Westfield - Managing Consultant -- FW Associates - IT Consultants Address: 4 Dell Close, Broadstone, Dorset

perl/Tk

I have downloaded the perl/tk module Tk804.02 from CPAN.ORG. I've unzipped and untarred it and placed it and it sub-directories uner "/". But my perl script can not find it. I get the response "Cann't locate Tk.pm in @INC". What to do?

Re: How to invoke the Linux KDE browser?

rd goes here"; $ftp->login($userName, $passWord) or die "Could not log in.\n"; my $localFile = "cgi1.html"; $ftp->put($localFile) or die "Can not put file. \n"; (Now the rest of the code for invoking the brwser goes here!) On Thursday 1

How to invoke the Linux KDE browser?

Does anyone know how to invoke the linux/KDE web browser from a perl = scrpt?

Re: Cant seem to understand

able match. So if $date contained: Thu Jun 5 10:04:03 CDT 2003 $1 would contain '10'. $2 would contain '04'. $3 would contain '03'. Hope this helps. - Frank Wiles <[EMAIL PROTECTED]> http://fra

Re: cgi LWP::Simple script and Apache

k need an outbound SMTP server to relay their E-mail through. This mostly due to the dial-up nature/roots of the Internet. Since the "client" wasn't going to be online 24/7 it needed to drop off the E-mail on an SMTP server so that the server could repeatedly try to

Re: Enumerating available modules

use File::Find; my $count = 0; find(\&wanted, @INC); sub wanted { if( $_ =~ /\.pm$/ ) { print "$count: $File::Find::name\n"; $count++; } } ----- Frank Wiles <[EMAIL PROTECTED]

Re: Why?

following it would work as expected: perl -e '@NEW = split(/\./, "1.2.3"); print "x", $NEW[1], "x\n"; ' The forward slashes denote the start/end of the pattern and the backslash says to use a literal period as oppose

Re: getting the number of characters

ar, you'll want to modify this to be: ($match) = $num =~ /(\d)$/; or if there is always there characters you can also do this: ($match) = $num =~ /\d\d(\d)/; ----- Frank Wiles <[EMAIL PROTECTED]>

  1   2   3   >