Re: rearrange text

2003-08-24 Thread Mike Robeson
I do not know what happend but the text didn't get formatted correctly on the list. But this is how the out put should really have been: a g a t a g a t c g c a t c g a - - - - - -dog a c g c t t c g a t a c g c t a g c t t a -cat a g a t a t a c g g g t t - - - - - - - - -mouse Tha

Re: [solved] Matching String

2003-08-24 Thread Pablo Fischer
Again.. Solved.. duh case /^mailaddr/i, just add a ^ before the matched string. thanks! El día Sunday 24 August 2003 5:00 a Pablo Fischer mandó el siguiente correo: > Hi again! > > Im saving some data of a configuration file in scalar var. > > My configuration file has something like this: > > [E

Matching String

2003-08-24 Thread Pablo Fischer
Hi again! Im saving some data of a configuration file in scalar var. My configuration file has something like this: [EMAIL PROTECTED] [EMAIL PROTECTED] Im choosing them with a case statement: switch ($param) { case /mailaddr=/i { $envio_mail = $valor; }

RE: TRYING AGAIN (was: Net::Telnet)

2003-08-24 Thread Gupta, Sharad
Thanx a lot for replying. I am telnetting from a windows machine to a unix machine. Comparing the installations seems to be an idea. I'll also try from the XP machine. Thanx again, -Sharad >-Original Message- >From: Rob Dixon [mailto:[EMAIL PROTECTED] >Sent: Sunday, August 24, 2003

Re: rearrange text

2003-08-24 Thread John W. Krahn
David --- Senior Programmer Analyst --- Wgo Wagner wrote: > > #!perl -w > use strict; > > my @MyWorka = (); > my $In = 0; > my $MyItem1 ; > my $MyItem2 ; There is no reason to declare these variables with file scope as they are only used inside the while loop. > my $MyMaxLen = 35; > > while (

Re: rearrange text

2003-08-24 Thread John W. Krahn
Mike Robeson wrote: > > Hello, Hello, > I am a relatively new PERL beginner and have been trying to work with > simple bioinformatics stuff. I have so far written some very useful but > simple bioinformatics scripts. However recently I have been trying > to work on a script to no avail. I ha

Re: [Solved] Save data in array from DB

2003-08-24 Thread Pablo Fischer
I solved it :-) @array = split("\n", get_data()); foreach(@array) { parse $_; } Now I can parse each line. Thanks! El día Sunday 24 August 2003 3:44 a Pablo Fischer mandó el siguiente correo: > Hi! > > I would like to parse data from a Field of a table (from a database in > MySql). > >

Save data in array from DB

2003-08-24 Thread Pablo Fischer
Hi! I would like to parse data from a Field of a table (from a database in MySql). The data type of the filed its a TEXT. An example of content: [EMAIL PROTECTED]|arg1|arg2|arg3 [EMAIL PROTECTED]|arg1|arg2|arg3 [EMAIL PROTECTED]|arg1|arg2|arg3 [EMAIL PROTECTED]|arg1|arg2|arg3 So I would like t

RE: rearrange text

2003-08-24 Thread Wagner, David --- Senior Programmer Analyst --- WGO
Mike Robeson wrote: > Hello, > > I am a relatively new PERL beginner and have been trying to work with > simple bioinformatics stuff. I have so far written some very useful > but simple bioinformatics scripts. However recently I have been > trying to work on a script to no avail. I have a text

update perl

2003-08-24 Thread Bulba007
I run CPAN. How upgrade all installed modules in my system? B. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: reinstall PERL

2003-08-24 Thread Bulba007
U¿ytkownik "Bulba007" <[EMAIL PROTECTED]> napisa³ w wiadomo¶ci news:[EMAIL PROTECTED] > How to repair Perl instalation on OBSD 3.3 stable? Succes I don't know how, but I have various version Cwd.pm in /usr/libdata/perl5, /usr/libdata/perl5/i36-openbsd/ there must are some bugs in OBSD ports. W

Re: Extract Array Element

2003-08-24 Thread Pablo Fischer
Thanks!! El día Sunday 24 August 2003 7:11 a Paul Johnson mandó el siguiente correo: > On Sun, Aug 24, 2003 at 02:01:48PM +, Pablo Fischer wrote: > > I have an array of 15 elements, however I dont want the fifth element. > > So, how can I extract it from the array so I would have 14 elements?

rearrange text

2003-08-24 Thread Mike Robeson
Hello, I am a relatively new PERL beginner and have been trying to work with simple bioinformatics stuff. I have so far written some very useful but simple bioinformatics scripts. However recently I have been trying to work on a script to no avail. I have a text file whose contents are: >d

Re: Extract Array Element

2003-08-24 Thread Paul Johnson
On Sun, Aug 24, 2003 at 02:01:48PM +, Pablo Fischer wrote: > I have an array of 15 elements, however I dont want the fifth element. So, how > can I extract it from the array so I would have 14 elements? perldoc -f splice $ perl -le '@a = (1 .. 15); print "@a"; splice @a, 4, 1; print "@a"' 1

Extract Array Element

2003-08-24 Thread Pablo Fischer
HI! I have an array of 15 elements, however I dont want the fifth element. So, how can I extract it from the array so I would have 14 elements? Thanks! Pablo -- Pablo Fischer Sandoval ([EMAIL PROTECTED]) http://www.pablo.com.mx http://www.debianmexico.org GPG FingerTip: 3D49 4CB8 8951 F2CA 8131

Re: Benchmark times

2003-08-24 Thread Pablo Fischer
Thanks to all! Im going to check the requirements (memory, CPU, etc). Thanks! El día Sunday 24 August 2003 1:45 a Pablo Fischer mandó el siguiente correo: > Hi! > > This maybe its not a Perl question. > > I have a system (with 3 classes), that works in this order: > > > * Check in FTP for new f

RE: Reading writing to INI files

2003-08-24 Thread Phillips, Wesley
Saadat, Try Win32::Tie::Ini Wes -Original Message- From: Saadat Saeed [mailto:[EMAIL PROTECTED] Sent: Sunday, August 24, 2003 10:57 AM To: [EMAIL PROTECTED] Subject: Reading writing to INI files Hello, Are there any modules available that can read/write to INI files. Thanks

Reading writing to INI files

2003-08-24 Thread Saadat Saeed
Hello, Are there any modules available that can read/write to INI files. Thanks in advance Saadat Saeed __ Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software http://sitebuilder.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

Formulas

2003-08-24 Thread Olivier6
Hello, I use the module Spreadsheet::WriteExcel and have following effect by generating formulas ... # Formulas my $formel = $worksheet -> store_formula('=IF(A2=A1,"X","-");'); for my $row (1..$anz_rows) { $worksheet -> repeat_formula($row, 8, $formel, $f_standard, 'A2', 'A'.($row + 1), '

Re: TRYING AGAIN (was: Net::Telnet)

2003-08-24 Thread Rob Dixon
Sharad Gupta wrote: > > Hi All, > > I have a small script like this: > > --- > use strict; > use Net::Telnet; > > my $host = "Wilma"; > my $username = "Foo"; > my $pass = "Bar"; > > my $s = Net::Telnet->new( Host=>$host, >

Re: Benchmark times

2003-08-24 Thread Rob Dixon
Pablo Fischer wrote: > > This maybe its not a Perl question. > > I have a system (with 3 classes), that works in this order: > > > * Check in FTP for new files > * Download new Files > * Unzip those files (.zip files) > * Each file has 3000 lines, and there are like 10 files (30,000 lines), So I >

Re: Benchmark times

2003-08-24 Thread Tassilo von Parseval
On Sun, Aug 24, 2003 at 09:35:39AM +0200 Janek Schleicher wrote: > Pablo Fischer wrote at Sun, 24 Aug 2003 01:45:42 +: > > Exists a website with benckmark running times in Perl? > > http://www.google.com/search?q=benchmark+perl+programming+languages Benchmark between languages are - at the b

Re: Trying to open a word document on the shell

2003-08-24 Thread Josimar Nunes de Oliveira
I made test wih the code below and it worked fine: #!/usr/local/bin/perl -w use Tk; my $mw = new MainWindow(); my $filename=$mw->getOpenFile(-filetypes=>[['MS Word Document', '*.doc']]); system("$filename"); Bye, Josimar Nunes de Oliveira - Original Message - From: "Michele Ouellet" <

Re: Trying to open a word document on the shell

2003-08-24 Thread Josimar Nunes de Oliveira
I made test wih the code below and it worked fine: #!/usr/local/bin/perl -w use Tk; my $mw = new MainWindow(); my $filename=$mw->getOpenFile(-filetypes=>[['MS Word Document', '*.doc']]); system("$filename"); Bye, Josimar Nunes de Oliveira - Original Message - From: "Michele Ouellet" <

Re: Benchmark times

2003-08-24 Thread Janek Schleicher
Pablo Fischer wrote at Sun, 24 Aug 2003 01:45:42 +: > This maybe its not a Perl question. I guess it ain't really not one. > I have a system (with 3 classes), that works in this order: > > > * Check in FTP for new files Time depends on the time to connect to FTP. However, the time is alwa

Re: Benchmark times

2003-08-24 Thread Oliver Schnarchendorf
On Sun, 24 Aug 2003 01:45:42 +, Pablo Fischer wrote: > I have a system (with 3 classes), that works in this order: > [...deleted...] > How good its to do this in 10 seconds? > Exists a website with benckmark running times in Perl? How good is it??? Depends on your goals and your hardware. It s

Benchmark times

2003-08-24 Thread Pablo Fischer
Hi! This maybe its not a Perl question. I have a system (with 3 classes), that works in this order: * Check in FTP for new files * Download new Files * Unzip those files (.zip files) * Each file has 3000 lines, and there are like 10 files (30,000 lines), So I need to parse the 30,000 lines and

Re: reinstall PERL

2003-08-24 Thread zsdc
Bulba007 wrote: 2003-08-23 17:43:09 -- String found where operator expected at /usr/libdata/perl5/i386-openbsd/5.8.0/Cwd.pm line 419, near "croak "Cannot chdir to $path: $!"" 2003-08-23 17:43:09 -- (Do you need to predeclare croak?) 2003-08-23 17:43:09 -- String found where operator expected at /