FW: How to save the attachment in Microsoft outlook using perl-code

2006-06-01 Thread Yekhande, Seema \(MLITS\) 
Title: FW: How to save the attachment in Microsoft outlook using perl-code






Dear All,


I am writing following code to read the latest message in Microsoft outlook. But does anyone knows how to write a code to download the attachment with name given. Please tell me how to save the attachment in particular folder with given name using perl.

# create the object

 use Mail::Outlook;

 my $outlook = new Mail::Outlook();


 # start with a folder

 my $outlook = new Mail::Outlook('Inbox');


 # use the Win32::OLE::Const definitions

 use Mail::Outlook;

 use Win32::OLE::Const 'Microsoft Outlook';

 my $outlook = new Mail::Outlook(olInbox);


 # get/set the current folder

 my $folder = $outlook-folder();

 my $folder = $outlook-folder('Inbox');


 # get the first/last/next/previous message

my $message = $folder-first(); 


 # read the attributes of the current message

 my $text = $message-From();

 $text .= $message-To();

 $text .= $message-Cc();

 $text .= $message-Bcc();

 $text1 = $message-Subject();

 $text2 = $message-Body();

 

print ==$text==$text1==$text2===\n; 


Thanks,

Seema.






If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Reading mail box.

2006-05-19 Thread Yekhande, Seema \(MLITS\) 
I still could not able to read the mail box.

By using OutlookReader.pm I, have written a program like this,

use Cardinal::OutlookReader;
$profileName = '[EMAIL PROTECTED]';
$_mailbox = 'Microsoft Outlook';
$password = '';
$_targetFolder = InBox;
my $manager =
Cardinal::OutlookReader-new('',$profileName,$password,$_mailbox,$_targe
tFolder);

But I am getting the error like this 
I am not having the password for the maiInitializing OutlookReader
package - 1.0  11/22/05
Just called Win32::OLE-Initialize(Win32::OLE::COINIT_OLEINITIALIZE)
(LoadMailbox) Folder:  Mailbox - Yekhande, Seema (MLITS)
(LoadMailbox) Folder:  Public Folders
Couldn't find mailbox  at C:/Perl/site/lib/Cardinal/OutlookReader.pm
line 245.
Destroying the OutlookReader objectl box. 

Can any one please explain me how to read the mail box using perl.

Thanks,
Seema.

-Original Message-
From: A. Pollock [mailto:[EMAIL PROTECTED] 
Sent: Friday, May 19, 2006 12:03 AM
To: Yekhande, Seema (MLITS); perl-win32-users@listserv.ActiveState.com
Cc: Yekhande, Seema (MLITS)
Subject: Re: Reading mail box.


Yeah, you have to install Mail::Box::IMAP4 manually after
you install Mail::Box. It should work fine after that. It's
a great little module.


 - Original Message -
 From: Yekhande, Seema (MLITS) [EMAIL PROTECTED]
 To: perl-win32-users@listserv.ActiveState.com
 Subject: Reading mail box.
 Date: Thu, 18 May 2006 18:37:26 +0530
 
 
 Hello All,
 
 I want to read a mail box from Microsoft Outlook which is my inbox.
 I am writing a code like this,
 
 use Mail::Box::Manager;
 my $mgr= Mail::Box::Manager-new;
 my $folder = $mgr-open('Inbox');
 But this is giving me an error as
 
 ERROR: Package Mail::Box::IMAP4 does not implement
Mail::Box::foundIn.
 Please warn the author, this shouldn't happen. at
 C:/Perl/site/lib/Mail/Reporter
 .pm line 196
  Mail::Reporter::notImplemented('Mail::Box::IMAP4') called at
 C:/Perl/sit
 e/lib/Mail/Box.pm line 155
  Mail::Box::foundIn('Mail::Box::IMAP4', 'Inbox', 'access',
'r',
 'folderdi
 r', ., 'authentication', 'AUTO', 'folder', ...) called at
 C:/Perl/site/lib/Mail/
 Box/Manager.pm line 208
  Mail::Box::Manager::open('Mail::Box::Manager=HASH(0x35760)',
 'Inbox') ca
 lled at mail.pl line 77
 
 Even if I am writing a code as below
 use Mail::Box::Manager;
 my $manager = Mail::Box::Manager-new;
 my $folder  = $manager-open(folder = $ENV{MAIL});
 my $msg = $folder-message(1);
 
 It is giving me the error as ERROR: No foldername specified to open.
 Can't call method message on an undefined value at mail1.pl line 4.
 So, can anyone please explain me how to read the messages from mail
box.
 
 Thanks  Regards,
 Seema.
 
 
 If you are not an intended recipient of this e-mail, please notify 
 the sender, delete it and do not read, act upon, print, disclose, 
 copy, retain or redistribute it. Click here for important 
 additional terms relating to this e-mail. 
 http://www.ml.com/email_terms/
 
 
 ___
 Perl-Win32-Users mailing list
 Perl-Win32-Users@listserv.ActiveState.com
 To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs




-- 
___

Search for businesses by name, location, or phone number.  -Lycos Yellow
Pages

http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default
.asp?SRC=lycos10


If you are not an intended recipient of this e-mail, please notify the sender, 
delete it and do not read, act upon, print, disclose, copy, retain or 
redistribute it. Click here for important additional terms relating to this 
e-mail. http://www.ml.com/email_terms/


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Remote machine connectivity

2006-05-18 Thread Yekhande, Seema \(MLITS\) 
Title: Message



Hello 
Andy,

Thanks 
for the support in doing this activity.

Regards,
Seema.
-Original Message-From: Andy 
Speagle [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 17, 2006 7:13 
PMTo: Yekhande, Seema (MLITS)Cc: 
perl-win32-users@listserv.activestate.comSubject: Re: Remote machine 
connectivity

  Seema,
  
  How about something as simple as this...
  
  
  use File::Copy;
  use Win32::OLE;
  
  my $strServer = "someserver";
  my $strSource = 
  "c:\\path\\to\\test.txt";
  my $strDest= "".$strServer."\\path\\to\\file\\";
  
  copy ($strSource, $strDest) ||
   die "Failed to copy file: 
  ".$^E."\n";
  
  my $strClass = 
  "WinMgmts:{impersonationLevel=impersonate}!//".$strServer;
  my $objWMI = Win32::OLE-GetObject( $strClass 
  )|| 
   die "Unable to connect to ".$strServer.":" . 
  Win32::OLE-LastError();
  my $objProcess = $objWMI-Get( 
  "Win32_Process" )|| 
   die "Unable to get the process 
  list:" . Win32::OLE-LastError();
  my $varPID = Variant( VT_I4 | VT_BYREF, 0 
  );
  if ( 0 == $objProcess-Create( "perl.exe 
  c:\\path\\to\\script\\script.pl test.txt", undef, undef, $varPID ) ) 
  { print "Process successfully created on ".$strServer." with 
  PID ".$varPID."...\n"; } else { print "Failed to create 
  process on ".$strServer."...\n";}
  
  This should be pretty straight-forward... and completely untested... 
  remember that with Win2k = SP3 ... the remote process will run completely 
  in the background... 
  
  Cheers.
  
  Andy Speagle
  
  -
  On 5/17/06, Yekhande, 
  Seema (MLITS) [EMAIL PROTECTED] 
  wrote: 
  



Hello All, 
I want to copy one test.txt file to a remote 
machine. Then change directory in remote 
machine and run the command on remote machine as perl test.pl test.txt 
Does anyone knows how to do this in 
perl. 
Thanks  Regards, Seema. 



If you are not an intended recipient of this e-mail, please notify the 
sender, delete it and do not read, act upon, print, disclose, copy, retain 
or redistribute it. Click here for 
important additional terms relating to this e-mail. 
http://www.ml.com/email_terms/ 


___Perl-Win32-Users 
mailing listPerl-Win32-Users@listserv.ActiveState.comTo 
unsubscribe: http://listserv.ActiveState.com/mailman/mysubs 
  
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reading mail box.

2006-05-18 Thread Yekhande, Seema \(MLITS\) 
Title: Reading mail box.






Hello All, 


I want to read a mail box from Microsoft Outlook which is my inbox.

I am writing a code like this,


use Mail::Box::Manager;

my $mgr = Mail::Box::Manager-new;

my $folder = $mgr-open('Inbox');

But this is giving me an error as 


ERROR: Package Mail::Box::IMAP4 does not implement Mail::Box::foundIn.

Please warn the author, this shouldn't happen. at C:/Perl/site/lib/Mail/Reporter

.pm line 196

 Mail::Reporter::notImplemented('Mail::Box::IMAP4') called at C:/Perl/sit

e/lib/Mail/Box.pm line 155

 Mail::Box::foundIn('Mail::Box::IMAP4', 'Inbox', 'access', 'r', 'folderdi

r', ., 'authentication', 'AUTO', 'folder', ...) called at C:/Perl/site/lib/Mail/

Box/Manager.pm line 208

 Mail::Box::Manager::open('Mail::Box::Manager=HASH(0x35760)', 'Inbox') ca

lled at mail.pl line 77


Even if I am writing a code as below

use Mail::Box::Manager;

my $manager = Mail::Box::Manager-new;

my $folder = $manager-open(folder = $ENV{MAIL});

my $msg = $folder-message(1);


It is giving me the error as ERROR: No foldername specified to open.

Can't call method message on an undefined value at mail1.pl line 4.

So, can anyone please explain me how to read the messages from mail box.


Thanks  Regards,
Seema. 







If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Remote machine connectivity

2006-05-17 Thread Yekhande, Seema \(MLITS\) 
Title: Remote machine connectivity






Hello All,


I want to copy one test.txt file to a remote machine. 

Then change directory in remote machine and run the command on remote machine as perl test.pl test.txt

Does anyone knows how to do this in perl.


Thanks  Regards,

Seema.






If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Problem with regex

2006-05-12 Thread Yekhande, Seema \(MLITS\) 
Holger,

Actually $ is a special character in string in perl. So, if the $ is there in 
the input,
you will have to always write it with the leading escape character. 

So, make your input will be like this,
my $data = Hello, i am a litte String.$ Please format me.$$$ I am the end
of the String.$$ And i am the last!;

It will solve your problem.

Thanks,
Seema
GPCT|TDDS|AIS|SPCM3


-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Holger Wöhle
Sent: Friday, May 12, 2006 6:09 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: Problem with regex 


 
Hello,
under Windows with ActiveState Perl i have a strange problem with a regex:
Assuming the following String:

my $Data = Hello, i am a litte String.$ Please format me.$$$ I am the end
of the String.$$ And i am the last!

The regex should replace $ with the string br, $$ with p and $$$ with
brbr (please don't think about the why)

If tried to use the following:
$data =~ s/\$\$\$/brbr/gm; #should catch every occurrence of $$$
$data =~ s/\$\$/p/gm; #should catch $$
$data =~ s/\$/br/gm; #the rest

So data should look after the first regex:
Hello, i am a litte String.$Please format me.brbrI am the end of the
String.$$And i am the last!
And after the second:
Hello, i am a litte String.$Please format me.brbrI am the end of the
String.pAnd i am the last!
And the last:
Hello, i am a litte String.brPlease format me.brbrI am the end of the
String.pAnd i am the last!

But all regexes i tried (the one above are only one try) failed! When i
print out the string it looks like:

Hello, i am a litte String. Please format me. I am the end of the
String.3398 And i am the last!

Where the number after String. differs between every run.

Can someone help me ?

With regars
Holger

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


If you are not an intended recipient of this e-mail, please notify the sender, 
delete it and do not read, act upon, print, disclose, copy, retain or 
redistribute it. Click here for important additional terms relating to this 
e-mail. http://www.ml.com/email_terms/


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Want to reduce the speed of execution in Perl script.

2006-04-06 Thread Yekhande, Seema \(MLITS\) 
In this below example, I want to transfer the output of one file to the
other file 
for reading and then take the average of every column. Do you have any
idea about why column_average function doesn't works when multiple files
Are passed using the for routine?

#!/usr/bin/perl -w
use fileoprn qw(file_read file_write);
use Text::CSV::Simple;
use List::Util qw(sum);

$infile = tmp;
$filebuf1 = file_read($infile);
my (@group_monitor) = $filebuf1 =~
m/\d+\/\d+\/\d+\t00\t(.*?\t.*?)\t.*?\n/sg;
my @unique = grep { ! $seen{ $_ }++ } @group_monitor;
foreach my $key(@unique)
{
system(qq~agrep $key $infile  tmp1~);

my $parser = Text::CSV::Simple-new({ sep_char = \t});
$parser-want_fields(5,6,7,8,9,10,11); #make total column index 0
my @data = $parser-read_file('tmp1');
print @$_\n foreach @data;

printf Average of 'total' column: %.02f\n, column_average(0);
printf Average of 'step1' column: %.02f\n, column_average(1);
printf Average of 'step2' column: %.02f\n, column_average(2);
printf Average of 'step3' column: %.02f\n, column_average(3);
printf Average of 'step4' column: %.02f\n, column_average(4);
printf Average of 'step5' column: %.02f\n, column_average(5);
printf Average of 'step6' column: %.02f\n, column_average(6);
}
sub column_average {
my ($idx) = @_;
my $sum = sum map {$_-[$idx] if defined $_-[$idx]} @data;
return $sum;
}

Thanks,
Seema.

-Original Message-
From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, April 05, 2006 10:18 PM
To: Yekhande, Seema (MLITS); perl-win32-users@listserv.ActiveState.com
Subject: RE: Want to reduce the speed of execution in Perl script.


 Actually Regex is taking more time instead of agrep. That's 
 why the idea of using either agrep or find.
 This is small input.txt which I am using it as a input file.
 If there is any other way of increasing the speed of same 
 Perl script, it is really required.

This has a chance of being faster. It uses Text::CSV::Simple--a wrapper
around Text::CSV_XS, which does the parsing in C for speed. Also, it
doesn't need any regular expressions. I think it's simpler code, too.

#!/usr/bin/perl -w

use Text::CSV::Simple;
use List::Util qw(sum);

my $parser = Text::CSV::Simple-new({ sep_char = \t});
$parser-want_fields(5,6,7,8,9,10,11); #make total column index 0
my @data = $parser-read_file('input.txt');

printf Average of 'total' column: %.02f\n, column_average(0);
printf Average of 'step1' column: %.02f\n, column_average(1);
printf Average of 'step2' column: %.02f\n, column_average(2);

sub column_average {
my ($idx) = @_;
my $sum = sum map {$_-[$idx] if defined $_-[$idx]} @data;
return $sum/scalar(@data);
}
__END__

You may be able to tweak even more speed out of it by using
Text::CSV::Simple's triggers to sum as you go instead of using
List::Util.

-- 
Mark Thomas 
Internet Systems Architect
___
BAE SYSTEMS Information Technology 
2525 Network Place
Herndon, VA  20171  USA


If you are not an intended recipient of this e-mail, please notify the sender, 
delete it and do not read, act upon, print, disclose, copy, retain or 
redistribute it. Click here for important additional terms relating to this 
e-mail. http://www.ml.com/email_terms/


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Want to reduce the speed of execution in Perl script.

2006-04-05 Thread Yekhande, Seema \(MLITS\) 
Title: Want to reduce the speed of execution in Perl script.






Dear All,


Suppose I have a log length tab-separated file, in this file I have to make the average of numbers based on certain parameters

as hour, group name and monitor name. This program takes long time in running. 


my ($infile) = @ARGV;

$filebuf1 = file_read($infile);

my (@group_monitor) = $filebuf1 =~ m/\d\/\d\/\d\t(\d\t.*?\t.*?)\t.*?\n/sg; ##This is taking time,group name and monitor name into an array from the file.

my @unique = grep { ! $seen{ $_ } } @group_monitor; ##This is taking unique values of that array.

foreach my $key(@unique)

{

my $tempbuf1;

my $cnt = 0;

my $total=0;

my $tstep1=0;

my $tstep2=0;

my $tstep3=0;

my $tstep4=0;

my $tstep5=0;

my $tstep6=0;

my $steps;

my $prev;

my $avg, $avstep1=0, $avstep2=0, $avstep3=0, $avstep4=0, $avstep5=0, $avstep6=0;

my $filebuf2;

my $date;

my $hr;

my $monitor;

my $group;


($fir,$sec,$thr) = split(/\t/,$key); ## This is spliting that value based on tab space.

system(qq~agrep $fir\t$sec\t $outfile  tmp~); ## agrep is an external utility to find search pattern in a file and transfer it into other file.

system(qq~agrep $thr tmp  tmp1~); ## agrep is more faster than regular _expression_.


open(FIN,tmp) || die Unable to open file : $filepath;


my $cnt = 0;

while($line=FIN)# go through all line in file

{

if($line =~ m/\t/g)

{

($date,$hr,$monitor,$group,$steps,$total1,$step1,$step2,$step3,$step4,$step5,$step6) = split(/\t/,$line); 

$tstep1=$step1$tstep1;

$tstep2=$step2$tstep2;

$tstep3=$step3$tstep3;

$tstep4=$step4$tstep4;

$tstep5=$step5$tstep5;

$tstep6=$step6$tstep6;

$total = $total$total1;

$cnt=$cnt1;

}

}

$avg = sprintf %.2f,$total/$cnt; 

$avstep1 = sprintf %.2f,$tstep1/$cnt;

$avstep2 = sprintf %.2f,$tstep2/$cnt;

$avstep3 = sprintf %.2f,$tstep3/$cnt;

$avstep4 = sprintf %.2f,$tstep4/$cnt;

$avstep5 = sprintf %.2f,$tstep5/$cnt;

$avstep6 = sprintf %.2f,$tstep6/$cnt;


switch ($steps)

{

case 1 { $filebuf3 .= $date\t$hr\t$monitor\t$group\t$steps\t$avg\t$avstep1\n }

case 2 { $filebuf3 .= $date\t$hr\t$monitor\t$group\t$steps\t$avg\t$avstep1\t$avstep2\n }

case 3 { $filebuf3 .= $date\t$hr\t$monitor\t$group\t$steps\t$avg\t$avstep1\t$avstep2\t$avstep3\n }

case 4 { $filebuf3 .= $date\t$hr\t$monitor\t$group\t$steps\t$avg\t$avstep1\t$avstep2\t$avstep3\t$avstep4\n }

case 5 { $filebuf3 .= $date\t$hr\t$monitor\t$group\t$steps\t$avg\t$avstep1\t$avstep2\t$avstep3\t$avstep4\t$avstep5\n }

case 6 { $filebuf3 .= $date\t$hr\t$monitor\t$group\t$steps\t$avg\t$avstep1\t$avstep2\t$avstep3\t$avstep4\t$avstep5\t$avstep6\n }

} 

close(FIN);

}

$outfile1= Ext1.txt;

file_write($outfile1, $filebuf3); ## This is used to write the content into the output file.


Does anyone is having different idea about reducing the speed in execution? This I am finding out about how to reduce the speed.

Thanks  Regards,

Seema.






If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Want to reduce the speed of execution in Perl script.

2006-04-05 Thread Yekhande, Seema \(MLITS\) 
Actually Regex is taking more time instead of agrep. That's why the idea
of using either agrep or find.
This is small input.txt which I am using it as a input file.
If there is any other way of increasing the speed of same Perl script,
it is really required.

Thanks,
Seema.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Peter Eisengrein
Sent: Wednesday, April 05, 2006 6:35 PM
To: Yekhande, Seema (MLITS); perl-win32-users@listserv.ActiveState.com
Subject: RE: Want to reduce the speed of execution in Perl script.




 system(qq~agrep $fir\t$sec\t $outfile  tmp~); ## agrep is an
external 
 utility to find search pattern in a file and transfer it into other
file.

 system(qq~agrep $thr tmp  tmp1~); ## agrep is more faster than
regular 
 expression. 

Are two system calls to agrep really faster than a single, well-crafted
regex? This would be the first thing I'd look at to speed performance.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


If you are not an intended recipient of this e-mail, please notify the sender, 
delete it and do not read, act upon, print, disclose, copy, retain or 
redistribute it. Click here for important additional terms relating to this 
e-mail. http://www.ml.com/email_terms/

03/21/2006  00  ACCOUNTINFO Available Funds 6   2627110 
579 141 1047422 328
03/21/2006  00  TRACKER Tracker 3   3221110 923 2188
03/21/2006  00  MARKETPULSE Most Active 3   137594  
1078203
03/21/2006  00  ACCOUNTINFO Holdings6   217394  
453 125 782 375 344
03/21/2006  00  ACCOUNTINFO Balances3   162494  
1171359
03/21/2006  00  STOCKS  Options Montage 3   2158110 1563
485
03/21/2006  00  MLRESEARCH  Focus 1 3   142394  1172
157
03/21/2006  00  NEWSBy Symbol   4   2032157 1188
203 484
03/21/2006  00  WalMart SSN 19  3   12688   67665391531
03/21/2006  00  TGAOL.1 PCOE - Place Equity Order   8   3265
172 906 547 266 234 250 406 484
03/21/2006  00  MLRESEARCH  ML Opinion  4   3657204 
1312172 1969
03/21/2006  00  TGAOL.1 PCOE - Order Summary5   2096110 
860 485 438 203
03/21/2006  00  MLRESEARCH  Report by Symbol6   8047
125 1500281 344 12354562
03/21/2006  00  TGAOL.1 PCOE - Place Mutual Fund Order  10  3594
109 875 485 235 218 343 109 219 610 391
03/21/2006  00  NEWSRecent Headlines3   146994  
1109266
03/21/2006  00  TGAOL.1 PCOE - Ancillary Calls  8   3437109 
1296500 250 547 109 219 407
03/21/2006  00  ACCOUNTINFO Closed Positions5   3268
110 1891532 360 375
03/21/2006  00  HealthChecksContent Management  3   19626   
767 765 18094
03/21/2006  00  TGAOL.1 PCOE 2 - Login  4   2047125 953 
578 391
03/21/2006  00  WalMart SSN 20  3   19373   14390   4530453
03/21/2006  00  TGAOL.1 PCOE 2 - Place Equity Order 3   767 
94  329 344
03/21/2006  00  REPORTCENTERAccount Balances4   5421
125 1172781 3343
03/21/2006  00  TGAOL.1 PCOE 2 - Logout 1   391 391
03/21/2006  00  ACCOUNTINFO Visa Transactions   4   2282
125 1266719 172
03/21/2006  00  WalMart SSN 21  3   15126   90315439656
03/21/2006  00  COE MLD - Trade Mutual Funds4   3015
109 2187250 469
03/21/2006  00  STOCKS  Quote   6   345363  234 2719
250 94  93
03/21/2006  00  ACCOUNTINFO Insurance  Annuities   3   1423
110 923 390
03/21/2006  00  MUTUALFUNDS Quote   4   167294  1407
78  93
03/21/2006  00  FIXEDINCOME.1   Bond Finder 3   2205110 
10011094
03/21/2006  00  ACCOUNTINFO Unrealized Gains5   2375
94  1297359 312 313
03/21/2006  00  Enrollment  Enrollment  3   2031688 
781 562
03/21/2006  00  LOGIN   mldirect - Login2   1344172 
1172
03/21/2006  00  ACCOUNTINFO Activity6   3830141 
547 125 2095266 656
03/21/2006  00

FW: How to transfer the output of find command of Dos in perl to file

2006-03-13 Thread Yekhande, Seema \(MLITS\) 
Title: FW: How to transfer the output of  find command of Dos in perl to file






Hi Everyone,


The regular _expression_ in Perl works slower when the size of file is bigger and we want to find the multilple patterns.

So, what I found is using the find command in DOS we can get the output faster 

$avl =Available Bytes;

$filename = WMTP_db_2006_2_28.txt;

@args = (find, $avl, $filename);

system(@args);

But here does anyone knows how to give the output of this system(@args) in a files.


Thanks,

Seema






If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

How t set path for repository in PPM?

2006-03-08 Thread Yekhande, Seema \(MLITS\) 
Title: How t set path for repository in PPM?






Hello Everyone,


I have installed perl on my PC from ActiveState. But one problem exists with it when I give the prompt as ppm. 

It goes into the ppm prompt. But when I search Tk or search CGI. It is giving me the error as No matches for 'Tk'

Or no matches for CGI.
The repository is set as http://ppm.ActiveState.com/PPM . The internet connection exist on my pc. 

But not able to install any module using PPM.


I know that I can copy the modules from CPAN in specific dir. As c:\perl\Site\lib . But this is not making the

entry into registry. So, can anyone please suggest me how to set the path for repository in PPM.


Thanks,

Seema.






If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How t set path for repository in PPM?

2006-03-08 Thread Yekhande, Seema \(MLITS\) 
Title: Message



I 
tried setting this path but it is giving me the error as "Error 500: can't 
connect to ppm.ActiveState.com". 
So, what is problem in setting this path, can you explain on 
it?

Thanks,
Seema.

  
  -Original Message-From: 
  [EMAIL PROTECTED] 
  [mailto:[EMAIL PROTECTED] On Behalf Of 
  -alpha-Sent: Wednesday, March 08, 2006 6:20 PMTo: 
  perl-win32-users@listserv.ActiveState.comSubject: Re: How t set 
  path for repository in PPM?
  try setting repository to
  
  http://ppm.ActiveState.com/cgibin/PPM/ppmserver-5.8-windows.pl?urn:/PPMServer
  2006/3/8, Yekhande, Seema (MLITS) [EMAIL PROTECTED]: 
  

Hello Everyone, 
I have installed perl on my PC from ActiveState. 
But one problem exists with it when I give the prompt as ppm. 
It goes into the ppm prompt. But when I 
search Tk or search CGI. It is giving me the error as No matches for 'Tk' 
Or no matches for CGI.The repository 
is set as http://ppm.ActiveState.com/PPM . The internet connection exist on my pc. 
But not able to install any module using 
PPM. 
I know that I can copy the modules from CPAN in 
specific dir. As c:\perl\Site\lib . But this is not making the 
entry into registry. So, can anyone please 
suggest me how to set the path for repository in PPM. 
Thanks, Seema. 



If you are not an intended recipient of this e-mail, please notify the 
sender, delete it and do not read, act upon, print, disclose, copy, retain 
or redistribute it. Click here for 
important additional terms relating to this e-mail. 
http://www.ml.com/email_terms/ 


___Perl-Win32-Users 
mailing listPerl-Win32-Users@listserv.ActiveState.com 
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs-- Mylene Farmer Forever 
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How t set path for repository in PPM?

2006-03-08 Thread Yekhande, Seema \(MLITS\) 
Hi everyone,

Thank everyone for giving me the suggestion in setting the path 
for the repository using ppm. Actually the internet connection
on my PC we set thought the proxy. So, I have given the command
as set HTTP_proxy=http://proxy.ml.com:8083 in c:\ .
So, by this way I am able to install any perl package on my PC.

Thanks  Regards,
Seema.

-Original Message-
From: Lyle Kopnicky [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, March 08, 2006 11:25 PM
To: Yekhande, Seema (MLITS)
Cc: perl-win32-users@listserv.ActiveState.com
Subject: Re: How t set path for repository in PPM?


Yekhande, Seema (MLITS) wrote:

 Hello Everyone,

 I have installed perl on my PC from ActiveState. But one problem 
 exists with it when I give the prompt as ppm.
 It goes into the ppm prompt. But when I search Tk or search CGI. It is

 giving me the error as No matches for 'Tk'
 Or no matches for CGI.
 The repository is set as _http://ppm.ActiveState.com/PPM_ . The 
 internet connection exist on my pc.
 But not able to install any module using PPM.

You don't have to change the repository location.  You can add new ones,

e.g.:

rep add Bribes http://www.bribes.org/perl/ppm

-- 
Lyle Kopnicky
Software Project Engineer
Veicon Technology, Inc.


If you are not an intended recipient of this e-mail, please notify the sender, 
delete it and do not read, act upon, print, disclose, copy, retain or 
redistribute it. Click here for important additional terms relating to this 
e-mail. http://www.ml.com/email_terms/


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs