On Aug 14, 2:15 pm, [EMAIL PROTECTED] wrote:
> #!/usr/bin/perl -w
> use strict;
> use Authen::Simple::POP3;
>
> print "Enter POP3 server hostname: ";
> chomp( my $host = );
>
> my $pop3 = Authen::Simple::POP3->new(
> host => $host
> );
>
> my $pwdlst = "pass.txt";
> open( INPASS, $pwdlst ) ||
On Aug 14, 2:15 pm, [EMAIL PROTECTED] wrote:
> #!/usr/bin/perl -w
> use strict;
> use Authen::Simple::POP3;
>
> print "Enter POP3 server hostname: ";
> chomp( my $host = );
>
> my $pop3 = Authen::Simple::POP3->new(
> host => $host
> );
>
> my $pwdlst = "pass.txt";
> open( INPASS, $pwdlst ) ||
On Jul 3, 12:41 pm, [EMAIL PROTECTED] (Amit Saxena) wrote:
> Hi Rajnikant,
>
> That removes the character "*" for everywhere whereas the requirement is
> only to remove from the
> beginning and trailing parts of the string.
>
> Regards,
> Amit Saxena
>
> On Thu, Jul 3, 2008 at 11:19 AM, Rajnikant <
On Jun 19, 4:55 pm, [EMAIL PROTECTED] (Rajnikant)
wrote:
> Hope this snipet will help you :).
>
> # Use :Perl -w test_argc.pl --name Irfan
>
> use strict;
> use warnings;
>
> # Get args
> my @argv = @ARGV;
>
> #get args cnt
> my $argc = @ARGV;
>
> my $icnt = 0;
>
> if($argc != 0)
> {
> for($icn
On Jun 16, 9:33 pm, [EMAIL PROTECTED] (Rob Dixon) wrote:
> Dermot wrote:
> > Hi All,
>
> > I have data in a tab delimited format like this (tabs might be lost in
> > the formatting of the email).
>
> > A456/959 ScHe
> > M920/1123 He
> > D123/999 ChFl
> > D123/949 AnFl
> >
