ccess.
If ($success == 244)
{
return 1;
} else {
return 0;
}
Can anybody help me in this regard?
Regards
Pradeep
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
=(@array1,@array."$i+1"); ---> To add array1 to array 4 and
return final array
}
Regards
Pradeep
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
ues of
hash2(for exp-d=0).I want to push this to a library(preferably a
single method) so that I can reuse it. Is there a better way to do
this?.
Can anybody help me in this regard? Any source code will be of great
help.
Regards
Pradeep
--
To unsubscribe, e-mail: beginners-unsubscr...@per
Hi,
I do have a doubt ,
Input:
1,2,3,4,5,6
output:
1-2,3-4,5-6
1-2,3-5,4-6
1-2,3-6,4-5
1-3,2-4,5-6
1-3,2-5,4-6
1-3,2-6,4-5
1-4,2-3,5-6
1-4,2-5,3-6
1-4,2-6,3-5
1-5,2-3,4-6
1-5,2-4,3-6
1-5,2-6,3-4
1-6,2-3,4-5
1-6,2-4,3-5
1-6,2-5,3-4
Can anyone help me in this
--
To unsubscribe, e-mail: be
Hi,
Thanks for the reply.
Can this impletemented in shell script alsso?
- Original Message
From: Gunnar Hjalmarsson <[EMAIL PROTECTED]>
To: beginners@perl.org
Sent: Saturday, 5 April, 2008 3:01:41 PM
Subject: Re: problem with the script in counting
pradeep reddy wrote:
> I
at how to find the occurance of column values in "swi" file.
Plz help me.
Ex:
The file has following column values:
123
324
123
123
435
435
The output should be
123 is 3 times
324 is 1 time
435 is 2 times
Thanks & Regards,
Pradeep.
Share files, take polls, and make
at how to find the occurance of column values in "swi" file.
Plz help me.
Ex:
The file has following column values:
123
324
123
123
435
435
The output should be
123 is 3 times
324 is 1 time
435 is 2 times
Thanks & Regards,
Pradeep.
Bollywood, fun, friendship, sports a
at how to find the occurance of column values in "swi" file.
Plz help me.
Ex:
The file has following column values:
123
324
123
123
435
435
The output should be
123 is 3 times
324 is 1 time
435 is 2 times
Thanks & Regards,
Pradeep.
Meet people who discuss and share yo
thanks adrano.
you are correct. have installed perl-cpan. it is resolved now.
thanks again,
On Feb 1, 2008 8:17 AM, Adriano Ferreira <[EMAIL PROTECTED]> wrote:
> On Feb 1, 2008 10:47 AM, Pradeep Mishra <[EMAIL PROTECTED]>
> wrote:
> > hi all
> >
> > I h
hi all
I have been trying to install spamassin using ...perl -MCPAN -e shell
which throws an error
Can't locate CPAN.pm in @INC (@INC contains:
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.6/i386-linux-t
hi all
>
> i am creating a perl script which takes the input from the file to
> create tables, inserting values into the database. As you all know the
> only procedure for taking input from a file (using perl script) into
> MySQL database is through (?) place holders.
> for example ,
>
> $sth=$dbh
hi Rob,
What exactly i wanted to do is..
to take a input from a file of format :
INPUT.txt :
Details> name , id INTEGER, area VARCHAR(32)
prady,2039,india
sandy,2398,india
sam,1234,aussie
Rob,2345,Eng
extraDetails>name1 VARCHAR(12), name2 VARCHAR(12)
prady,sandy
sandy,Rob
Rob,sam
sam,prady
in
Hi
I am a beginner in perl and have tough time in writing a script which
i need urgently. I would like to know the perl script to
1)modify passswords in LDAP for multiple users taking input from
another file(which contains usernames and new passwords )
Thank you in advance.
Regards
Pradeep
Hello,
I used the follwoing code:
struct rusage startusage, stopusage;
getrusage(RUSAGE_SELF, &startusage);
getrusage(RUSAGE_SELF, &stopusage);
cpu_delta_user=((stopusage.ru_utime.tv_sec*100) +
stopusage.ru_utime.tv_usec) -(startUsage.ru_utime.tv_sec*1
:
> On Tue, Dec 19, 2006 at 03:48:49PM +0530, pradeep reddy wrote:
> > Yes Ruud, I edited it in windows environment, as a text pad format, then I
> > saved it.
> >
> > How can i correct this issue.
> >
> > -reddy.
>
>
> At the prompt, type
>
Its worked for me now.
I run the following command on unix to convert.
perl -i -pe 's/\x0d\x0a/\x0a/g'
Thx all for your support.
Thx Cook,Krishnan,Ruud.
-reddy.
- Original Message
From: H Krishnan <[EMAIL PROTECTED]>
To: pradeep reddy <[EMAIL PROTECTED]>; Dr.
Cook,
I run the command what you sent.But still the same problem persists.I cant
execute the script in linux machine directly by its name, by i can do it on
windows machine..
-reddy.
- Original Message
From: Owen Cook <[EMAIL PROTECTED]>
To: pradeep reddy <[EMAIL PROTE
issue
pradeep reddy schreef:
> The same perl script runs fine on windows environment. But on
> linux machine its giving this problem.
Did you edit it in a Windows environment? Then a bunch of CRs might have
creeped in your script, corrupting your shebang and more.
--
Affijn, Ruud
&q
s.
-reddy.
- Original Message
From: Owen Cook <[EMAIL PROTECTED]>
To: pradeep reddy <[EMAIL PROTECTED]>
Cc: beginners@perl.org
Sent: Tuesday, 19 December, 2006 1:29:15 PM
Subject: Re: perl script execution issue
On Tue, Dec 19, 2006 at 06:18:54AM +, pradeep reddy wrote:
> Hi,
&
th "#!/usr/bin/env
perl", these are executing with no issues.
-reddy.
- Original Message
From: Owen <[EMAIL PROTECTED]>
To: pradeep reddy <[EMAIL PROTECTED]>
Cc: beginners@perl.org
Sent: Tuesday, 19 December, 2006 11:32:17 AM
Subject: Re: perl script execution issu
Hi,
Error was:
": No such file or directory."
I made the changes in the code of script.I did not change any environment
variable and any execution path.
The script has "#!/usr/bin/env perl" at the top.
-Reddy.
- Original Message
From: Larry Johnson <[EMAIL
Hello all,
I have a starnge problem.
I have a perl script.Previously I was executing it, by simply giving its name
with .pl (pradeep.pl).Recently I made few changes and, from that time, I could
not execuite it directly by its name.
Now I need to give "perl http://messenger.yahoo.com/download.p
leartool mklabel $RECURSE $REPLACE -version $Version $label $pathName;
}
Anyways, as per Bolliger's i/p I with try to use $_ instead of with outLine
varible.
Thx PERL team.
-Pradeep.
- Original Message
From: D. Bolliger <[EMAIL PROTECTED]>
To: beginners@perl.org
Sent: We
sing this logic ---if ($outLine =~ / cleartool: Error: Unable to
create label /)
, to check for the patten in part of line..Is this correct?
Thanks & Regards,
Pradeep.
- Original Message
From: John W. Krahn <[EMAIL PROTECTED]>
To: Perl Beginners
Sent: Wednesday, 25 October,
Hello all,
Iam new member to this group and also beginner to PERL.
Here is my question,plz let me know your inpus:
I have a PERL script which gives error report at the end.
Here is the output.
cleartool: Error: Unable to create label "Pradeep" on "/vob/rootinclude/paer.c&quo
How about
my $formatted = sprintf("%05d", $number);
-Original Message-
From: SilverFox [mailto:[EMAIL PROTECTED]
Sent: Monday, November 10, 2003 1:14 PM
To: [EMAIL PROTECTED]
Subject: Playing with Numbers
Hi all, i'm trying to figure out how to test if a number is five digits
and
i
Hi,
How can I set up environment variables to be used in the script in IIS ?
Thanks,
Pradeep
I am sure, somebody will point you to the right direction here.
-Pradeep
"[ Muliawan Sjarif ]" <[EMAIL PROTECTED]> wrote:
Hi,
Thank you for your reply. Actually I did try authorization_basic. But, it
seems that the website doesn't use authorization_basic scheme. B
seems, it matches any path with 2 sub dirs, ending with xyz and populates $1 with the
second dir
for instance
if $cur_dir = "/cgi-bin/dev/xyz"
then $1 is set to "dev"
-Original Message-
From: Hari Krishnaan [mailto:[EMAIL PROTECTED]
Sent: Friday, May 30, 2003 9:27 AM
To: [EMAIL PROTE
- Original Message -
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, March 25, 2003 12:35 AM
Subject: Re: 1) Automated FTP 2) txt to html 3) pstools vs WMI
> From: "Pradeep Goel" <[EMAIL PROTECTED]>
>
::FTP also to
check out an automated ftp ,will ask you or list with next set of problems :)) .
Thanks & Regards
Pradeep
"Rob Dixon" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED]
> Pradeep Goel wrote:
> > Hi All ,pls answer if u know anything out of 3 dif
- Original Message -
From: "Janek Schleicher" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, March 24, 2003 2:57 PM
Subject: Re: 1) Automated FTP 2) txt to html 3) pstools vs WMI
> Pradeep Goel wrote at Mon, 24 Mar 2003 11:24:15 +0530:
>
>
cripts in WMI. Is there any adv of using WMI in place of pstools ?.
Thanks in Advance
Regards
Pradeep
its 3.0.1
& perl is 5.8
& my time is quite bad these days :)
Thanks & regards
Pradeep
- Original Message -
From: "Rob Dixon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, March 05, 2003 6:10 PM
Subject: Re: not able to set re
My HTTP_proxy is set to http://proxyname:portno like say http://jen:8210
Thanks & Regards
Pradeep
HP, bangalore ,India
Ph :91-80- 2052262
Hi All
Can win32::Tieregistry ( & other win32 modules) be installed on unix boxes
i .e a program that takes information from many remote windows machines etc
be reside on a unix server ?
any script examples are most welcome
Regards & Thanks
Pradeep
m remote
machines
u may use TieRegistry .
I was thinking of implementing it as
if(unix) { unix funcn }
elsif(windows) { win32 funcn }
http://www.the-labs.com/Perl/ThePerlJournal/Issue_08_Win32/
&
http://www.roth.net/conference/lisant/1999/
have good examples for you .
It must be able
ng
sprite/jprite ?
Thanks & Regards
Pradeep
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
PRODUCTS:
swlist
PATCHES:
ls -m $patchDir
DISK USAGE:
bdf -t ,
df , df -k ,df -t
USERS LOGGED IN :
who , last
Thanks & Regards
Pradeep
91-80-2052262
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
istry can be used for most of them) .
2) whether for using TieRegistry for remote systems , do i need
some permissions on remote system. ?
Thanks & Regards
Pradeep
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
PLS DON't OPEN mail with sub - ANTECEDENTES ACADMICOS EDUCACIN BSICACompleta
from some Marcos Contreras <[EMAIL PROTECTED]> - its virus infected
I don't know from where i got this mail -
although successfully removed in my system .
pls fwd it to other lists - if feel so
Hi All
Does anybody knows how to use perl or other script
for remote execn on nt machines to get some info of machines , may be say
from
registery , etc .
Regds
Pradeep
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Dear Senior Programmer Analyst
did it solves the problem ?
I don't think so .
there is one very simple logical flow
if ($temp_unit eq 'C' or 'c'){
should be
if ($temp_unit eq 'C' or $temp_unit eq 'c'){
that's all
the second one is from F to C in last print command is well understood.
- Ori
/Win32-AdminMisc.ppd?'
(y/N):
y
Installing package
'http://www.roth.net/perl/packages/Win32-AdminMisc.ppd'...
Error installing package
'http://www.roth.net/perl/packages/Win32-AdminMisc.ppd'
: Could not locate a PPD file for package
http://www.roth.net/perl/packages/Win3
2-AdminMis
hi
I haven't installed anything yet
now i have some better idea
i am trying to install - without success
i downloded from the ftp site- extracted & then giving command
C:\Perl\bin>perl ppm install
C:\pradeep\net\perl\Bin\AdminMisc_5006/win32-daemon
.ppd
ys_name1
10.20
Reserved by :pradeep
Email id :pradeep
Extn :2262
Purpose :CV Patch Testing
Start date:03-01-2003
Close date:31-01-2003
Removal :
Installation :
Previous User :pravin
most/all of the info is updated every day
dynamically by execut
http://www.ugu.com/sui/ugu/show?I=tip.1105&F=1
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
e file RF1 is empty or not ?
#
open(RFh1,"RF1") or die "Not able to open RF1 \ n";
my @pachs = ;
my($num3) = $pachs[0]=~ /_(\d+)$/;
I want $num3 to be 0 if RF1 is empty .
thanks & rgds
Pradeep
--
To unsubscribe, e-mail: [EMAIL
- Original Message -
From: "PRADEEP GOEL" <[EMAIL PROTECTED]>
To: "Paul Johnson" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, December 03, 2002 6:27 PM
Subject: Re: a Bug in PERL
>
> - Original Message -
> From: &
- Original Message -
From: "Paul Johnson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, December 03, 2002 5:13 PM
Subject: Re: a Bug in PERL
>
> PRADEEP GOEL said:
> >
> > - Original Message --
7;t leave it as it is , it does pop out & at last
leave it empty
> Enjoy,
> Chris
>
# thanks
Pradeep
> On Monday, December 2, 2002, at 05:31 AM, Paul Johnson wrote:
>
> >
> > PRADEEP GOEL said:
> >> If i am not wrong somewhere , there is a
- Original Message -
From: "Paul Johnson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, December 02, 2002 5:01 PM
Subject: Re: a Bug in PERL
>
> PRADEEP GOEL said:
> > If i am not wrong somewhere , th
k it's intensional feature , else it should also not be able to
pop the only
element , if it has one , but it does.
Regards
Pradeep
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
0] & ARGV[1]
in the called script ( i.e. installP.pl ) ARGV[0] appears as blank -
nothing
how to pass them - a really big & crucial problem ,
is problem because of "sh" or remsh or ??
please suggest me possible causes and/or solutions
thanks
pradeep
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi Nandita
I think you just want to concat no.s to ids
probably this may help
$em = "nandita\@yahoo.com" ; ## " \ " to remove spcl meaning of @
$i = "001";
$emid = $em.$i;
or##
$emid1 = "$em$i";
print " $emid or $emid1 ";
- Original Message -
From: "Nandita Shenvi" <[E
"sh -c /script2.pl )
simply
I want to pass some arguements say $ARGV[2] , $ARGV[3] from script1 to
script2
will it be ok if i pass like
system("remsh $remhost -l root \"sh -c /script2.pl ( $ARGV[2] ,
ARGV[3] ))?
Thanks
pradeep
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
i have a file(say f1) containing patch names
pach_2377
pach_2676
pach_3897
I want to check if there are(is) patch _id(s) which r greater than given patch_id
(say : pach_2579)
pls tell me how to do that in perl
i.e.
while ()
{
$ch = $_;
if ($given_patchid gt $ch ) ## pls tell
anyone can tell me the possible causes.
Regards
Pradeep
Thanks Aman
can u also tell me some site to download
perl 5.8 gz or tar.gz for hp ux 11.00
i downloaded some , but they r depot.gz - i don't know about depot-
or how to use them
Regards
Pradeep
- Original Message -
From: "Aman Thind" <[EMAIL PROTECTED]>
To: &
make a difference(such as script may not run) if it s an
upgraded 5.8
version instead of 5.6 ?
Regards
Pradeep
what's the difference between:
$::MY_VARIABLE
and
my $MY_VARIABLE
if they're both declared in main()?!
Obviously they're treated differently by perl because $::MY_VARIABLE does
not equal $MY_VARIABLE.
anyone?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
Hi All,
I have a string
$str="first value %s and second is %s, substitute them";
and an array @vars=('I', 'II');
i want to substitute the array with the respective values
any regular expression or join etc ?
Thanks in advance
Pradeep
______
Thank you very much Japhy for this solution
now how can I replace digits with formatted Xs like :
123412341234 to
--1234
and 0123412341234 to
--X1234
using regular expressions.
Thanks in Advance
Pradeep
-Original Message-
From: Jeff 'japhy' Piny
Hi,
I have a number 342389842452.
how do a substitute of everything with X but last 4 digits using regular
expressions
like 2452
Thanks
Prad
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
get the output :
first : goofoobar at out.pl line 233.
second :
I want to have the three arguments in an array.
can somebody tell what am I doing wrong ?
Thanks
Pradeep
_
Join the worlds largest e-mail service with MSN Hotmail
do :
perldoc -f push
print function help
-Original Message-
From: Scott Lutz [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 20, 2002 4:32 PM
To: Beginners (E-mail)
Subject: perldoc manual
Where can one find a good reference to the perldocs?
I want to find out about "push", so I
/(.*?)\s*=\s*(.*)/ and $var{$1} = $2 while ;
did u mean ?
/(.*?)\s*=\s*(.*)/ and $var->{$1} = $2 while ;
-Pradeep
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, February 05, 2002 12:33 PM
To: Kevin Werckman
Cc: [EMAIL PROTE
Hi All,
I was wondering, is there a mailing list dedicated to Obejct Oriented Perl ?
Thanks
Prad
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
With this code, I get :
#!/usr/bin/perl -w
my $ordfile=shift || die "unable to open : $!s\n";
open (LIST, "<$ordfile") || die "unable to open file $ordfile : $!\n";
while () {
# chomp; # a)
my $line=$_;
print STDERR "\nline : *** $line ***";
}
line : *** 6M2FD9XV
***
line : ***
I am on unix
I am doing this :
my $dir=`pwd`;
but I was looking, if there is a function in perl.
> -Original Message-
> From: Rex Arul [mailto:[EMAIL PROTECTED]]
> Sent: Friday, November 16, 2001 5:36 PM
> To: Pradeep Sethi; [EMAIL PROTECTED]
> Subject: Re:
what is the function in perl that returns current dir ?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Your question is related how to do CGI programming in perl. There are two
ways in which, we can pass values to a Perl web page.
POST & GET, passing the values in the address bar like
www.mysite.com/show?name=peter is get and passing thru a web form
page normally uses post.
Both of these variables
Is there a similar function in perl like PHP - urlencode / urldecode ?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
erences.
you can see "perlreftut" manpage.
pradeep.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
;
);
is a two dimentional array.
if you want to access hello $array[0]->[0]
of course threre are other ways.
'There's more than one way to do it.' --Programming Perl
pradeep.
On Mon, 3 Sep 2001, Gordon Barr wrote:
> Is there a way of handling these in perl?
man page.
"man perlfunc"
now search for printf.(type /printf)
Thanks,
pradeep.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello,
I unzipped the DBI.zip into a dir and unpacked the DBI.jar file.
then I used ppm install DBI ,but it says
Error installing package could not locate a ppd file for package DBI.
Can someone give a suggestion.
[EMAIL PROTECTED]
___
77 matches
Mail list logo
