Win32::OLE, ADODB.Stream and ADODB.Command problem.

Hello all, I'm trying to use Win32::OLE (version 0.1703) and the ADODB objects to retrieve XML being produced by a stored procedure on SQL server. I used the following code as a guide: http://msdn.microsoft.com/library/en-us/dnsqlmag2k/html/adoxmlListing_02.txt If I create a VB project using the

compare two files

hi, Is there a best way to find some lines which exists in both two files? Someone has show me a method but it seems a little low efficiency. The code is as below: open (T1,"1.txt") or die "$!"; open (T2,"2.txt") or die "$!"; while(my $line=){ chomp $line; print $line,"\n" unless diff($line)

Plz help

Hi All As i was continuing with perl i created a program to churn out individual directory names from a given path in windows.Here is the program: #use warnings; #use strict; Print "Enter the path:"; my $dir=; chomp($dir); my @DIR=split ///, $dir; print $DIR[0]; but it throws an error "Search p

Re: compare two files

On Oct 11, 2005, at 11:18, Jeff Pan wrote: Is there a best way to find some lines which exists in both two files? Someone has show me a method but it seems a little low efficiency. The code is as below: Have you searched CPAN for diff modules? -- fxn -- To unsubscribe, e-mail: [EMAIL PROTEC

Re: Plz help

On Oct 11, 2005, at 11:37, The Roopak Times wrote: Hi All As i was continuing with perl i created a program to churn out individual directory names from a given path in windows.Here is the program: #use warnings; #use strict; Print "Enter the path:"; my $dir=; chomp($dir); my @DIR=split //

Re: Plz help

The Roopak Times wrote: Hi All As i was continuing with perl i created a program to churn out individual directory names from a given path in windows.Here is the program: #use warnings; #use strict; Print "Enter the path:"; my $dir=; chomp($dir); my @DIR=split ///, $dir; print $DIR[0]; but it th

Net::Telnet Updating Prompt?

Hello, I have a small issue with net::telnet 3.03. The Device I want to connect aus an OS-Level CLI and a Application-Level CLI. I have to log in to OS-Level to gai Access to Application level. Now, the problem is, the command prompt of the application is different from the prompt of the Os (han

Re: Plz help

The Roopak Times wrote: > Hi All Hello, > As i was continuing with perl i created a program to churn out individual > directory names from a given path in windows.Here is the program: > #use warnings; > #use strict; > Print "Enter the path:"; > my $dir=; > chomp($dir); > my @DIR=split ///, $di

RE: :Telnet Updating Prompt?

Bastian Angerstein <[EMAIL PROTECTED]> asked: [net::Telnet] > Is it possible to update the internal Object-attribute ($last_prompt)? >From the documentation: last_prompt - last prompt read $string = $obj->last_prompt; $prev = $obj->last_prompt($string); With no argument this metho

Re: compare two files

Jeff Pan wrote: > hi, Hello, > Is there a best way to find some lines which exists in both two files? Your code logic says that you want to find lines in '2.txt' that are NOT in '1.txt'. > Someone has show me a method but it seems a little low efficiency. Not only that but it doesn't work corr

RE: keeping track of the 'age' of a file

ZHAO, BING wrote: > But, I > figured it might be a good idea to save the file for like a week then > delete it, if I know some kind of function like > "clock"(as wild as it can get..), "date" etc, so after a week or so, > the perl script would delete the file. The "classic" way to

RE: compare two files

Jeff Pan wrote: > hi, > > Is there a best way to find some lines which exists in both two files? I usually use the Unix comm(1) utility. Its very efficient, but the input files need to be sorted. Google for "ppt comm" and you can find a Perl version. -- To unsubscribe, e-mail: [EMAIL PROTECTED]

Re: compare two files

Your code logic says that you want to find lines in '2.txt' that are NOT in '1.txt'. thanks for all answerers. yeah,I have put less attention on that code,and have made a fatal logic error. but the way mentioned by John, putting file's all contents to a hash, maybe somewhat less efficiency when

automatically submitting web forms.

Hello List, I would like to be able to automagically submit a form to a server. The server requires that I give it a sequence of letters (a protein) in one box, my email, and select several radio buttons to my chosen output. In this case the server is PSIPRED protein structure prediction server

Re: automatically submitting web forms.

On 10/11/05, Dan Klose <[EMAIL PROTECTED]> wrote: > I would like to be able to automagically submit a form to a server. Take a look at WWW::Mechanize http://search.cpan.org/dist/WWW-Mechanize/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: automatically submitting web forms.

On Oct 11, 2005, at 16:23, Dan Klose wrote: I would like to be able to automagically submit a form to a server. The server requires that I give it a sequence of letters (a protein) in one box, my email, and select several radio buttons to my chosen output. In this case the server is PSIP

Using Perl Modules

Hello, Is there a way possible by which I can use a perl module without installing it on the system? Some sort of equivalent for #include "/home/madhurk/myClass.h" which exists in C/C++ -- Thanks Madhur -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTE

Re: automatically submitting web forms.

On Tue, 2005-10-11 at 16:44 +0200, Xavier Noria wrote: > On Oct 11, 2005, at 16:23, Dan Klose wrote: > > > I would like to be able to automagically submit a form to a > > server. The > > server requires that I give it a sequence of letters (a protein) in > > one > > box, my email, and select

Re: Using Perl Modules

On Oct 11, Madhur Kashyap said: Is there a way possible by which I can use a perl module without installing it on the system? Some sort of equivalent for #include "/home/madhurk/myClass.h" which exists in C/C++ I take it you mean, "how can I tell Perl to look in a certain place for a module?"

Re: automatically submitting web forms.

On Oct 11, 2005, at 17:27, Dan Klose wrote: Thanks for your suggestions. I am going to give it a try... However there is another way I am also going for. If you have lynx you can use: lynx =cmd_log=FOO to make a series of commands for a page. you can then use: lynx -cmd_script=FOO Inte

Re: automatically submitting web forms.

On Tue, 2005-10-11 at 17:47 +0200, Xavier Noria wrote: > On Oct 11, 2005, at 17:27, Dan Klose wrote: > > > Thanks for your suggestions. I am going to give it a try... > > However there is another way I am also going for. If you have lynx > > you > > can use: > > > > lynx =cmd_log=FOO to make a

RE: hi

Please respond to the list. I'm not always available to answer questions. Now for your questions, loosely numbered: 1,3) You probably either included "use strict" or perhaps included some other code that used strict. That enforces the requirement to lexically scope your variables, among other

Re: HOA idiocy.

THIS is what I have this works I don really know if this is what you where looking for you can access elements such I did in the print statement it peints "c" use strict; use warnings; my %HOA = ( "one" => ['a','b','c'], "two" => ['c','z','s'], ); print "$HOA{one}[2]\n"; On 10/10/05, Dan K

Regex matching problem

Hi, I've got a .txt with 25 of numerically named lines (example). (Example): 1. First Name: 2. Last Name: 3. Age: 4. Company: 5. Quality of the service: ... 25. Would you recommend our services: I'm trying to strip everything after the colon so I'm just left with the answer. In case there is no

Re: Regex matching problem

On Oct 11, Juan Manuel Casenave said: 1. First Name: 2. Last Name: 3. Age: #!/usr/bin/perl # strip_answers.pl use strict; use warnings; # array to store the stripped results my @information; # open a filehandle to output.txt (where the results are stored) in read mode open (IN, '<', 'outpu

Perl equivalent of JavaScript match

Hi. I need to grab regex matches from a string in perl. The string is an enum data type in Mysql. i.e. enum('Berks','Carbon','Lehigh','Montgomery') So basically I need a match on alphabetic chars between single quotes. No problem. But I'd like to be able to grab each match and store it in an a

RE: Regex matching problem

Juan Manuel Casenave wrote: > Hi, > > I've got a .txt with 25 of numerically named lines (example). > (Example): > > 1. First Name: > 2. Last Name: > 3. Age: > 4. Company: > 5. Quality of the service: > ... > 25. Would you recommend our services: > > I'm trying to strip everything after the col

fork + objects + logging

fork(): I'm trying to put a perl wrapper around some clunky java code to make it play nicer. The best arrangement I have come up with is to use: open(JVM, "java_app.sh |"); I suppose I could use system() as well, but if I read correctly the STDOUT from the java application would become the

Re: Perl equivalent of JavaScript match

"Frank Geueke" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Hi. I need to grab regex matches from a string in > perl. The string is an enum data type in Mysql. i.e. > enum('Berks','Carbon','Lehigh','Montgomery') > So basically I need a match on alphabetic chars > between single

Re: Perl equivalent of JavaScript match

Hi Todd, I'm completely new to perl. I'm have to work in biology using perl, postgresql (as database) and clustalw or multalin (as the alignment tool). I'm stating my problem briefly: In the postgresql db the data is clustered using complete linkage clustering. I've to connect to that db, fetch t