h the APACHE or some include.
Please help.
Thanks,
Prabu
Explore your hobbies and interests. Go to
http://in.promos.yahoo.com/groups/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
'};
$ua->credentials($url, 'TESTREALM', 'username' => 'password');
my $res = $ua->post($url, $in);
print Dumper $res->content;
Please guide me,
I want to Pass both credentials and parameters through headers.
Thanks,
Prabu
Unlimited
TP::Request->new(GET => $url);
$req->content("user=json%3A%5B%27testuser%27%5D");
When am passing the value through the Query String it is working
http://mylink?user=json%3A%5B%27testuser%27%5D
$req = HTTP::Request->new(GET => $url);
Please help me, How to pass value through t
- Original Message
From: Gunnar Hjalmarsson <[EMAIL PROTECTED]>
To: beginners@perl.org
Sent: Saturday, April 5, 2008 11:22:41 PM
Subject: Re: String To Hash Conversion
Prabu Ayyappan wrote:
> I want to convert a string into a Hash data structure
>
> For Exam
' => '543','21' => '111','Client' => '543','chat' => '111'}]
>From CPAN I got a module called Convert/PerlRef2String
http://search.cpan.org/~kaili/Convert-PerlRef2String-0.03
$open_mode = 'r';
# Open file in read/update mode
my $table = adTie( $format, $data, $open_mode,);
print Dumper %$table;
Hope this helps.
Best Regards,
Prabu
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
o I search
the perl manual for "use strict"
Thanks
Hello,
Are you looking for
perldoc strict
Best Regards,
Prabu
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile
sh = ( %hsh, (split(/,/, $_))[1,2] ) while ( );
print Dumper \%hsh;
Hope this helps,
Thanks,
Prabu
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now
Hi All,
Below are some of the way to optimize the perl code. You can add more to this
if you have something more.
1) use a reference instead of the variable directly
Use reference in passing large arrays in a function call. Because without a
reference it will copy the entire array or hash onto th
Hi All,
What is the difference in Accepting the following form of standard input?
1) $a = ;
2) $b = ;
3) $c = <>;
Now check,
print $a $b $c;
What is actually happening?
Will this be written to some standard input file?
If so In windows where this will be written?
Thanks,
Prabu.M.A
Hi Siva,
I doubt the problem is with the version of perl you are using.
The symbol Perl_sv_2iv_flags may be introduced with the new version of perl
Try with Perl version is: v5.8.9
- Original Message
From: sivasakthi <[EMAIL PROTECTED]>
To: beginners perl
Sent: Wednesday, October 24,
Hi Siva,
Leave the perl script and first try the url in your browser.
If it works fine means then the code will get you the HTML contecnt of that
page.
Thanks and Regards,
Prabu.M.A
- Original Message
From: Siva Prasad <[EMAIL PROTECTED]>
To: beginners@perl.org
Sent: Wednesday, Octob
Hi,
You can get the ppms from the below links,
http://trouchelle.com/ppm/
hope this help,
Thanks,
Prabu.M.A
Jeff Pang <[EMAIL PROTECTED]> wrote:
-Original Message-
>From: Gladstone Daniel - dglads
>Sent: Aug 10, 2007 9:39 PM
>To: beginners@perl.org
>Subject: New to Perl
>
>Good Mo
nce it is reading the whole file each time to parse the node based on the
ID.It is taking lot of time.I need to read a 100MB file each time to take the
node.
Thanks in advance,
Prabu
Jenda Krynicky <[EMAIL PROTECTED]> wrote:
From: Prabu Ayyappan
> Thanks for the valuable input
ng the whole file each time to parse the node based on the
ID.It is taking lot of time.
Thanks in advance,
Prabu
Jenda Krynicky <[EMAIL PROTECTED]> wrote:
From: Prabu Ayyappan
> Thanks for the valuable inputs,
>
> I am planning to solve my memory issue by making th
after
processing that chunk i will purge my memory (purge in XML::Twig)
Thanks in advance,
Prabu
Jenda Krynicky <[EMAIL PROTECTED]> wrote: From: Rob Dixon
> Prabu Ayyappan wrote:
> >
> > I want to convert a huge XML file into an inMemory Hash.
> >
> > I
to memory ?
Is there any benchmarks available ?
Please guide me.
Thanks in advance,
Prabu
-
Sick sense of humor? Visit Yahoo! TV's Comedy with an Edge to see what's on,
when.
l have the same number of lines.
Thanks,
Prabu
Irenta <[EMAIL PROTECTED]> wrote:
On Jul 29, 7:08 pm, [EMAIL PROTECTED] (Irenta) wrote:
> Hello all!
>
> I wrote a script that reads data from different files and put it all
> together in one new file in columns. Onc
.
Thnx
Prabu
Jeff Pang <[EMAIL PROTECTED]> wrote:
--- [EMAIL PROTECTED] wrote:
> Hello!
>
> Help with Regex, Thanks in avance!
>
>
> 1. Validation of Name
>
> Enable ALL keys on keyboard EXCEPT 0, 1, 2.,
> 9
> Change to uppercase
Hi Rupesh,
Can you explain your problem scenario a little more briefly. So that it may
help in understanding the problem clearly,
For Example,
My input is like
I am expecting this output.
What you tried to achieve your output..
Regards,
Prabu
"[EMAIL PROTECTED]" <[EMAIL PROT
ents passed to the sub-routine.
Hope this help you.
Thanks,
Prabu
"Joseph L. Casale" <[EMAIL PROTECTED]> wrote:
Heh,
Clearly I need to sleep!
This doesn't even work either?
#!/usr/bin/perl -w
@list = (Exchange,Filter,DNS,Domain)
sub stop_it {
$vm = $_[0]
ents passed to the sub-routine.
Hope this help you.
Thanks,
Prabu
"Joseph L. Casale" <[EMAIL PROTECTED]> wrote:
Heh,
Clearly I need to sleep!
This doesn't even work either?
#!/usr/bin/perl -w
@list = (Exchange,Filter,DNS,Domain)
sub stop_it {
$vm = $_[0]
ior:url(#default#VML);} .shape {behavior:url(#default#VML);}
Yup, lol
Wish I understood this! What is the line that does the search called? What do I
look up to read up on this?
Thanks!
jlc
From: Prabu Ayyappan [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 03, 2007 10:55
A quick solutionMay be you can enhance it more as you like..
@discarr = ('/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/AN-DC (Win2003
Ent x64)/AN-DC (Win2003 Ent
x64).vmx','/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/AN-DC (Win2003 Ent
x64)/Disc 1.vmdk','/vmfs/volumes/467f06
Its not even being displayed in by browser.The UTF-8 Character i meant is the
square characters in the Link
http://www.tony-franks.co.uk/UTF-8.htm
Prabu Ayyappan <[EMAIL PROTECTED]> wrote:
Hi,
I am using XML::Simple for converting the XML into a hash.
use Unicode::String q
Hi,
I am using XML::Simple for converting the XML into a hash.
use Unicode::String qw(utf8);
use XML::Simple;
#use Data::Dumper;
$XML = "äT©imes";
$u = utf8($XML);
$XML = $u->utf8;
$myHash = XMLin($XML);
#print Dumper($myHash);
The above code works fine...
But the problem i
Hi,
I am using XML::Simple for converting the XML into a hash.
use Unicode::String qw(utf8);
use XML::Simple;
#use Data::Dumper;
$XML = "äT©imes";
$u = utf8($XML);
$XML = $u->utf8;
$myHash = XMLin($XML);
#print Dumper($myHash);
The above code works fine...
But the problem i
You can even do like this
$var1 == 0 && $var2 == 1 ? print "hai" : print "bye";
Thanks and Regards,
Prabu.M.A
"Joseph L. Casale" <[EMAIL PROTECTED]> wrote:
I want to script an "if" based on two conditions, var1=0 and var2=1.
Is there some quicker way to write this in one "if" stateme
Hi,
There is some good stuffs in the below link.
http://www.unix.org.ua/orelly/
Thanks,
Prabu
"Garg, Mayank IN BOM SISL" <[EMAIL PROTECTED]> wrote:
Hi all,
Can some one suggest me a good book on perl (basics and advanced)
Thanks & R
Hi Alok,
Hope the examples in the below links help your needs.
For opening and reading an XL(Excel)
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;# die on errors...
# get already active Excel
Hi,
Hope you can find your solution from the following two approaches
Approach I
#!/usr/bin/perl
while (<*>) {
if ($_ =~ /note/){
open(FH, "$_");
@fcontent = ;
print @fcontent;
close(FH);
}
}
APPROACH II
opendir(CURRENT,".");
@list = readdir(CURRENT);
clos
Hi,
Hope you can find your solution from the following two approaches
Approach I
#!/usr/bin/perl
while (<*>) {
if ($_ =~ /note/){
open(FH, "$_");
@fcontent = ;
print @fcontent;
close(FH);
}
}
APPROACH II
opendir(CURRENT,".");
@list = readdir(CURRENT);
clos
Hi,
Hope you can find your solution from the following two approaches
Approach I
#!/usr/bin/perl
while (<*>) {
if ($_ =~ /note/){
open(FH, "$_");
@fcontent = ;
print @fcontent;
close(FH);
}
}
APPROACH II
opendir(CURRENT,".");
@list = readdir(CURRENT);
clos
Hi All,
XML::Simple
XML::twig
XML::Myxml
XML::Rules
XML::path
all these do the XML parsing,But which one is the efficient and stable one to
parse a large XML file.
Thanks,
[EMAIL PROTECTED]
Mike Blezien <[EMAIL PROTECTED]> wrote:
- Original Message -
From: "Karjala"
To:
Cc: "Mike
Hi,
Have you tried XML::XPath for this one.It may help you.
Thnx and Rgds,
[EMAIL PROTECTED]
Mike Blezien <[EMAIL PROTECTED]> wrote: I need to parse a fairly large XML
response file and would like some suggestions
on which XML module would work the best. We've been using the XML::Simple
modul
Hope this helps you.
use strict;
use warnings;
open my $fh, '<', "infile.txt" or die $!;
open my $ofh, '>', "outfile.txt" or die $!;
local $/ = "};";
my %printed;
my @a = <$fh>;
my @b = ();
foreach(@a){
if ($_ =~ m/(.*?)\_T\n/){
my $tomatch = $1;
my $cnt = grep /$toma
Hi,
Hope this is what you are expecting.
#!/usr/bin/perl -w
($old_header,$old_atoms,$old_bonds) = mol2_read('prabu');
print "@{$old_header} \n @{$old_atoms} \n @{$old_bonds}";
sub mol2_read {
@mol2_header = ('prabu1','prabu12');
@
Hi,
Hope this is what you are expecting.
#!/usr/bin/perl -w
($old_header,$old_atoms,$old_bonds) = mol2_read('prabu');
print "@{$old_header} \n @{$old_atoms} \n @{$old_bonds}";
sub mol2_read {
@mol2_header = ('prabu1','prabu12');
@
Hi,
Hope this is what you are expecting.
#!/usr/bin/perl -w
($old_header,$old_atoms,$old_bonds) = mol2_read('prabu');
print "@{$old_header} \n @{$old_atoms} \n @{$old_bonds}";
sub mol2_read {
@mol2_header = ('prabu1','prabu12');
@
Hi,
The GD module may not be installed properly.
if you are using active perl then did you install the module via ppm:
C:\> ppm
ppm> install GD
if you didn't use activestate, then using cygwin.
perl -MCPAN -e 'install GD"
if you are get installed the module in some other path the
you can use the Data::Dumper module to see the four dimension array values.
use Data::Dumper;
my @a = (
[
[
[ "0,0,0,0", "0,0,0,1" ],
[ "0,0,1,0", "0,0,1,1" ],
[ "0,0,2,0", "0,0,2,1" ],
anand kumar wrote:
hi all,
I could not understand clearly the functions qw(),qq(),qr(),qx(),q(),quotemeta(). I
have read the explanation for these functions in the perl documentation but i
could not get idea of where exactly we can use these functions. So please
send some other lin
Sayed, Irfan (Irfan) wrote:
Hi All,
I did as follows but still not getting output in a file.
plz help
#/usr/atria/bin/Perl -w
use strict;
use warnings;
my $CT = "/usr/atria/bin/cleartool";
my @vob_list = `$CT lsvob -s`;
my $fname = "/tmp/vob_trigger";
open FILE,">>",$fname or die
Grant wrote:
Can someone tell me how to turn this line (which works):
open(LABEL,">/path/to/the/file.gif");
into something like this:
open(LABEL,">/path/to/the/$file.gif");
The gif file should be named according to the value of the $file
variable. I never know what to do with quotes in these
Gregory Machin wrote:
Hi
My perl script is called by a bash script, used in a compile / build env.
But the bash script is not seeing my script's exit and is timming out and
continuing ...
How can I pass a standard exit code 0 = success 1 = fail to the operating
system / calling script.
Many Tha
Sayed, Irfan (Irfan) wrote:
Hi All,
I need to send / print / write the output of one command to a file
through perl script
can anybody plz help.
Regards
Irfan.
Hope this helps
perl -e 'print `command > file`;'
Example:
perl -e 'print `ls -l > output`;'
--
Prabu.M.A
When I was b
I BioKid wrote:
One simple question -
I need to accept a file from the user and to store it as temp1.
then I need to give this file as an input of another program :
I wrote a script like this, but it is not working : Help ?
#!/usr/bin/perl -w
use CGI;
my $q = new CGI;
my $file = $q->param('file'
Sayed, Irfan (Irfan) wrote:
Hi All,
I am executing following command
` $MT chreplica`;
I need to find out wheather this command is executing properly or not.
If it's executing properly then i need to print the message saying that
" command executed successfully"
Can anybody please hel
Nishi Bhonsle wrote:
Hi:
How do I look for the string in the following file
so that
i can insert something between the tags
insert some bla text here
in the following file?
http:/
Dr.Ruud wrote:
Chandru schreef:
Prabu:
I am a perl user as well as i works on some sed scripts.I am also a
subscriber of "sed-users".In that list,people maintain the sed
one-liners in the name.
"HANDY ONE-LINERS FOR SED"
People in the list will get a mail re
Hello moderator et all,
I am a perl user as well as i works on some sed scripts.I am also a
subscriber of "sed-users".In that list,people maintain the sed
one-liners in the name.
"HANDY ONE-LINERS FOR SED"
People in the list will get a mail regularly with the one-liners in the name.We can a
n server_bin.files" if /server_bin\.files/;
>
> --
> WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
--
Regards
Prabu M A
Hello Mahdi,
I Don't know whether this is your requirement.But you can run the nohup
command using system() in perl.
system("nohup YourCommand");
Sorry,if this is not what you expected.
--
Prabu.M.A
When I was born I was so surprised
I didnt talk for a period and half
Hello Ben,
Hope this is what u expected
#!/usr/bin/perl
system("cat /etc/hosts");
print `cat /etc/hosts`;
$? contains the status returned by the last pipe close, backtick(``)
command or *system* operator.
--
Prabu.M.A
When I was born I was so surprised
I didnt talk for a period and
Hello,
Hope this is what you need
Input File --- test.txt
172.16.1.194
172.16.1.20
172.16.1.200
172.16.1.34
Program to check active or not -- pingpro.pl
#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
my $file_name=$ARGV[0];
my $line;
my @host_array;
open(FILE,"$file_name") || die "
Message-
From: Prabu [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 22, 2006 12:06 PM
To: Nath, Alok (STSD)
Cc: beginners@perl.org
Subject: Re: Trying to add hyperlink
Hello,
Hope this is your need...
#!/usr/bin/perl -w
use warnings ;
use CGI qw/:standard/;
print header, start_html("
Hello,
Hope this is your need...
#!/usr/bin/perl -w
use warnings ;
use CGI qw/:standard/;
print header, start_html("Stsd ILO Links"), h1("Stsd ILO Links") ;
print table({-border=>undef,,-width=>'75%', -height=>'70%'},
caption(strong('Web Page Under construction?')),
Tr({-align=>CENTER,-valign=
my $template = HTML::Template->new(filename => 'templ.tmpl');
# fill in some parameters
$template->param(name => "Prabu");
$template->param(example => "For Template");
# send the obligatory Content-Type and print the template output
print "Content-
$name="prabu";
$cat file2.pl
#!/usr/bin/perl
require "file1.pl";
print $name."\n";
$ perl file2.pl
prabu
--
Prabu.M.A
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
the function in
http://search.cpan.org/dist/Term-ReadLine-Gnu/Gnu.pm
hope will help u to get some idea.
--
Prabu
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
Mark Martin wrote:
Thanks Prabu ,
Works great. I'm not having any luck finding good documentation on
this so I'll throw 2 more questions at you if that's okay:
Is there a method for setting the selected value as with the html
below? Also, is it possible to display meaningful
kilaru rajeev wrote:
Hi,
Please tell me how can we encrypt or decript file. Please give me the
information regarding this.
Regards,
Rajeev
Try out with the modules available in
http://search.cpan.org/~aar/Module-Crypt-0.04/Crypt.pm
Module::Crypt
--
Prabu
--
To unsubscribe, e-mail: [EMAIL
.pm>
*Module::Crypt*
--
Prabu
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
up_menu(-name=>'dropdown',-values=>['one','two','three','four']);
print $p->end_html;
--
Prabu M A
nd the error
output..
Regards
Mazhar
Hope this wil work (place a dot before \n(concatenation) in the print)
#!/usr/bin/perl
use strict;
use warnings;
my $file_name="XXX.txt";
open(FILE,"$file_name") || die "Not been Accessed";
while () {
print $_."\n"; #place a dot before \n(concatenation)
}
--
Prabu M A
("flavour");
print header; # here's a comment. print the header
print start_html("Alok's Page"),h1(" Paragraph... !");
if ($favourite){
print q("Your favourite is : $favourite.");
}else {
print hr, start_form ;
print "Please select: ",textfield("flavour","mint"); #Remove the q in
print
print end_form, hr ;
}
--
Prabu M A
print " What is your major
",$query_obj->popup_menu(-name=>'menu_name',-value=>[EMAIL PROTECTED]);
print $query_obj->p,$query_obj->submit;
print $query_obj->end_form;
}
else{
my $name=($query_obj->param('text_field') or '');
print $query_obj->p,"This is your name $name","\n\n";
print $query_obj->p;
my $major=($query_obj->param('menu_name') or '');
print "This is your major $major ";
}
print $query_obj->end_html;
exit;
--
Prabu M A
alce is donw with the command inside file operation;
while (){
s/\Q$pattern\E/$own/m;
How to do this?
Prabu.
"Rob Dixon" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Prabu wrote:
> >
> > In pattern matching,I want to match a pattern in multipl
attern/$replace/g" command?
Thanks inadvance,
Prabu.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.620 / Virus Database: 399 - Release Date: 3/11/2004
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
attern/$replace/g" command?
Thanks inadvance,
Prabu.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.620 / Virus Database: 399 - Release Date: 3/11/2004
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For ad
Hi,
I want to match a pattern and replace with another string.Since the "?"
is also one of the character present in the string.
I am not able to do it.
Please help to how to make "?" acceptable in the string used for pattern
matching.
My problem is:
Here in the script,how to make the Perl to a
Hi,
I have wrote a script to search for a pattern and replace it in all files of a
directory,that i specified at commandline.I want another one thing is to be done in
the script.That's,it should search only for the type of files I specified at
commandline.That is,it should get the extensi
Hi,
I have wrote a script to search for a pattern and replace it in
all files of a directory,that i specified at commandline.
I want another one thing is to be done in the script.That's,it should
search only for the type of files I specified at commandline.
That is,it should g
quot;;
my $path=;
chdir($path);
my $file='';
my @files=<*.txt>;
foreach $file (@files){
{
inner loop for pattern matchinh
};
With Thanks inadvance,
Prabu.
Win an evening with the Indian cricket captain: Yahoo! India Promos.
to be replaced is;
document.write("<img src=" + url + "/images/corner_2.gif width='10'
height='10'></td>");
Can anyone help me in this,
With Thanks in advance,
prabu.
---
Outgoing mail is certified Virus Free.
Checked by AVG ant
Dear my friends...
Anybody would be so kind telling me what is similar in
perl/tk to arrange the location of a form written in
perl/tk? I want a nice look for my perl/tk
application.
Somewhat like this below:
1. Name :
2. Address :
3. Telephone :
I have made the main menu of my applicat
Dear my friends,
Any body would be so kind to teach me how to put label and input of a
form in one row.
I am meaning like this :
"
Name of person : [input column with entry widget]
"
Here I rewrote the code under below.
Thank you very much in advance.
#!/usr/bin/perl
use Tk;
my $MainWindow =
77 matches
Mail list logo
