and parameters through headers.
Thanks,
Prabu
Unlimited freedom, unlimited storage. Get it now, on
http://help.yahoo.com/l/in/yahoo/mail/yahoomail/tools/tools-08.html/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
=json%3A%5B%27testuser%27%5D
$req = HTTP::Request-new(GET = $url);
Please help me, How to pass value through the request headers.
Thanks,
Prabu
You rock. That's why Blockbuster's offering you one month
- 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 Example
String:
[['aaa',{27
://search.cpan.org/~kaili/Convert-PerlRef2String-0.03/lib/Convert/PerlRef2String.pm
But for that i want to encode the string to base64 and then want to give the
string as parameter for string2perlref($string);
Is it advisable. Please help me.
Thanks,
Prabu
for CSV , here is a sample piece
of code
use AnyData;
use Data::Dumper;
$format= 'CSV';
$data = 'sample.csv';
$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
( INFILE );
print Dumper \%hsh;
Hope this helps,
Thanks,
Prabu
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt
Hello,
Are you looking for
perldoc strict
Best Regards,
Prabu
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt
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
Hi All,
What is the difference in Accepting the following form of standard input?
1) $a = STDIN;
2) $b = stdin;
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,
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,
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 beginners@perl.org
Sent:
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 Morning
PROTECTED]'.$ID.']' =
\chunks});
$twig-parse($showtimeString);
sub chunks{
my( $twig, $reOrganize)= @_;
$chunkedIXMLG = $_-sprint;
$twig-purge;
}
Since it is reading the whole file each time to parse the node based on the
ID.It is taking lot of time.
Thanks in advance,
Prabu
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 inputs,
I am planning to solve my memory issue by making the XML into Chunks
using Xml::Twig and using simplify( ) in XML::Twig
that 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 tried using XML::Simple. But its taking huge
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.
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. Once I open the new file, I
noticed
.
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 of 1st alphabet of every word
and lowercase
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 PROTECTED] wrote: Hi
);} .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 PM
To: Joseph L
.
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];
print $vm\n;
}
stop_it(@list)
What is wrong here?
jlc
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 = STARTäT©imes/START;
$u = utf8($XML);
$XML = $u-utf8;
$myHash = XMLin($XML);
#print Dumper($myHash);
The above code works fine...
But the
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 = STARTäT©imes/START;
$u = utf8($XML);
$XML = $u-utf8;
$myHash = XMLin($XML);
#print Dumper($myHash);
The above code works fine...
But the
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 qw(utf8
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
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 Regards,
Mayank Garg
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 statement like:
If
Hi,
Hope you can find your solution from the following two approaches
Approach I
#!/usr/bin/perl
while (*) {
if ($_ =~ /note/){
open(FH, $_);
@fcontent = FH;
print @fcontent;
close(FH);
}
}
APPROACH II
opendir(CURRENT,.);
@list = readdir(CURRENT);
Hi,
Hope you can find your solution from the following two approaches
Approach I
#!/usr/bin/perl
while (*) {
if ($_ =~ /note/){
open(FH, $_);
@fcontent = FH;
print @fcontent;
close(FH);
}
}
APPROACH II
opendir(CURRENT,.);
@list = readdir(CURRENT);
Hi,
Hope you can find your solution from the following two approaches
Approach I
#!/usr/bin/perl
while (*) {
if ($_ =~ /note/){
open(FH, $_);
@fcontent = FH;
print @fcontent;
close(FH);
}
}
APPROACH II
opendir(CURRENT,.);
@list = readdir(CURRENT);
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 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
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 /$tomatch/,@b;
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');
@mol2_atoms = ('prabu2');
@mol2_bonds
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');
@mol2_atoms = ('prabu2');
@mol2_bonds
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');
@mol2_atoms = ('prabu2');
@mol2_bonds
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 then
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
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 $!;
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
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
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 =
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
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 help
Nishi Bhonsle wrote:
Hi:
How do I look for the string filemap_generic in the following file
so that
i can insert something between the tags
filemap_generic
insert some bla text here
/filemap_generic
in the following file?
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 also
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 regularly with the one
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
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=TOP},
[
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(Stsd
::Template;
# open the html template
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-Type: text/html\n\n
::Template;
# open the html template
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-Type: text/html\n\n
=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
='dropdown',-values=['one','two','three','four']);
print $p-end_html;
--
Prabu M A
*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
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
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 text instead
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
,mint); #Remove the q in
print
print end_form, hr ;
}
--
Prabu M A
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 (FILE) {
print $_.\n; #place a dot before \n(concatenation)
}
--
Prabu M A
=($query_obj-param('menu_name') or '');
print This is your major $major ;
}
print $query_obj-end_html;
exit;
--
Prabu M A
to use /n to distinguish between 2 lines,when decalring
them?
Or anyother operator needed to be used?.
(ie) $pattern=text in 1st line /n text in secondline;
$replace=some text;
2. Whether to specify any options in the s/$pattern/$replace/g command?
Thanks inadvance,
Prabu
to use /n to distinguish between 2 lines,when decalring
them?
Or anyother operator needed to be used?.
(ie) $pattern=text in 1st line /n text in secondline;
$replace=some text;
2. Whether to specify any options in the s/$pattern/$replace/g command?
Thanks inadvance,
Prabu
my repalce is donw with the command inside file operation;
while (IN){
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 multiple line.How to do
(IN){
if (/$pattern/){
s/$pattern/$replace/g;
}
Tell me in what way I need to give the ?' symbol in the $pattern string,So
that string will be accepted.
With Thanks inadvance,
Prabu.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.620
inadvance,
Prabu.
Win an evening with the Indian cricket captain: Yahoo! India Promos.
;
}
if (/$img/){
s/$img/\nscript\nimg/g;
}
if (/$pattern/){
s/$pattern/$own/g;
# print $_;
}
if (/img/){
s/$img/document.write(img/g;
}
if (/$com/){
s/$com/td);/g;
}
print OUT $_;
}
close (OUT);
close (IN);
rename($test,$filetoopen);
}}
Thanks inadvance,
Prabu
;
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.
in this,
With Thanks in advance,
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, e-mail: [EMAIL PROTECTED]
http
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 : place to type-in
2. Address : place to type-in
3. Telephone : place to
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 =
76 matches
Mail list logo
