hi,
need help on hashes
here is the code :
print "Enter the words: ";
chomp(my @words = );
my %names;
foreach $a (@words) {
if (!%names) {
print "hi\n";
$names{$a} = 1;
} else {
while ( ($key, $value) = each %names ) {
if ($a eq $key) {
$names{$key} += 1;
} else {
$names{$a} = 1;
}
}
}
}
for
thanks a lot !
will improve the coding standard.
regards,
irfan
From: Shlomi Fish
To: Irfan Sayed
Cc: Perl Beginners
Sent: Monday, October 1, 2012 4:08 PM
Subject: Re: delete blank lines from text file
Hi Irfan,
On Mon, 1 Oct 2012 01:34:51 -0700 (PDT
hi,
i need to delete all blank lines from the text file
wrote following code. however, all the blank lines are not getting deleted.
please suggest
open FILE,"+<", 'C:\Users\bvcontrolbuild\Desktop\test.txt';
while ()
{
chomp;
push (@lines, "$_\n");
}
close F
thanks a lot for all the responses :)
regards
From: Shlomi Fish
To: Michael Brader
Cc: beginners@perl.org
Sent: Thursday, September 20, 2012 2:53 PM
Subject: Re: regular expression help
On Thu, 20 Sep 2012 17:13:07 +0930
Michael Brader wrote:
> A more
got it myself :)
thanks a lot
$line_to_add =~ m/([a-zA-Z]+\.csproj)/;
regards
From: Irfan Sayed
To: Perl Beginners
Sent: Thursday, September 20, 2012 12:07 PM
Subject: regular expression help
i have string 'c:\p4\car\abc\xyz.csproj'
i ju
i have string 'c:\p4\car\abc\xyz.csproj'
i just need to match the xyz.csproj
i tried few option but does not help.
can someone please suggest
regards
irfan
i am stuck. can someone please suggest
regards,
irfan
From: Irfan Sayed
To: Ron Bergin ; Shlomi Fish ; Perl
Beginners
Sent: Saturday, September 8, 2012 8:10 PM
Subject: Re: destroy widget
please suggest
regards
irfan
please suggest
regards
irfan
From: Irfan Sayed
To: Ron Bergin
Cc: Shlomi Fish ; Perl Beginners
Sent: Friday, September 7, 2012 4:40 PM
Subject: Re: destroy widget
thanks ron. it worked!
i need plz another suggestion.
in scrolled text window, i need
__
From: Ron Bergin
To: Irfan Sayed
Cc: Shlomi Fish ; Perl Beginners
Sent: Wednesday, September 5, 2012 7:38 PM
Subject: Re: destroy widget
Irfan Sayed wrote:
> please find the attached .
> what i am looking for is, need to destroy the window $mw1 once the text
> entered in scrolled tex
Sent: Tuesday, September 4, 2012 6:07 PM
Subject: Re: destroy widget
Hi Irfan,
On Tue, 4 Sep 2012 05:01:11 -0700 (PDT)
Irfan Sayed wrote:
> hi,
>
> i have following code to get the user input :
>
> $mw1 = MainWindow->new;
> $mw1->geometry( "200x100" );
hi,
i have following code to get the user input :
$mw1 = MainWindow->new;
$mw1->geometry( "200x100" );
$mw1->title("Client Workspace");
$mw1->Label(
-text => "Enter the Perforce client name:"
)->pack(-anchor=>'center');
$mw1->Entry(
-textvariable => \
hi,
i need to use Encode::ConfigLocal module
when i searched in CPAN, it is not available
basically, i am converting perl program to exe using perl2exe
it throws following error :
C:\Users\bvcontrolbuild\Desktop\p2x-10.40-Win32>perl2exe.exe ..\test3.pl
Converting '../test3.pl' to test3.ex
thanks.
it worked!
regards
irfan
From: Shekar
To: Irfan Sayed
Cc: Jim Gibson ; Perl Beginners
Sent: Friday, August 24, 2012 12:23 PM
Subject: Re: insert in perl tk
Try this.
$t->insert("end", &gettime);
--
Shekar
On Fri, Aug 24, 2012 at 11:58 AM, Irfan Sayed
_
From: Jim Gibson
To: Perl Beginners
Sent: Friday, August 24, 2012 11:13 AM
Subject: Re: insert in perl tk
On Aug 23, 2012, at 9:35 PM, Irfan Sayed wrote:
> thanks. this will help to print the contents of array on separate line.
> however, if at all we need to ca
thanks. this will help to print the contents of array on separate line.
however, if at all we need to call function then what is the syntax, how we can
call that ?
please suggest .
regards
irfan
From: Shawn H Corey
To: beginners@perl.org
Cc: Irfan Sayed
2012 10:54 PM
Subject: Re: insert in perl tk
On Thursday, August 23, 2012 at 10:15 AM, Irfan Sayed wrote:
> can someone please suggest ?
>
Explain what you're actually trying to achieve, instead of asking how to do
what you think will let you accomplish what you're trying t
can someone please suggest ?
regards
irfan
From: Irfan Sayed
To: "beginners@perl.org"
Sent: Thursday, August 23, 2012 4:15 PM
Subject: insert in perl tk
hi,
can we call function in the insert method of perl tk ?
i have code like this:
$t-&g
hi,
can we call function in the insert method of perl tk ?
i have code like this:
$t->insert("end", "\&abc");
so when this line gets executed, it should first call function abc
please suggest
regards
irfan
thanks a lot
regards
irfan
From: Shawn H Corey
To: beginners@perl.org
Cc: Irfan Sayed
Sent: Saturday, August 18, 2012 6:50 AM
Subject: Re: search and replace
On Fri, 17 Aug 2012 18:02:23 -0700 (PDT)
Irfan Sayed wrote:
> i have string like this :
&
hi,
i have string like this :
$a = '$(workspace)\convergence\trunk';
i need to replace $(workspace) with 'c:\p4\abc'
i wrote regex like this :
$a =~ s/$\(workspace)/c:\\p4\\abc/;
however, the string which i am getting is :
$(c:\p4\abc)\convergence\trunk
i need output like this : c:\p4\abc\conv
From: Lawrence Statton
To: Irfan Sayed
Cc: "beginners@perl.org"
Sent: Thursday, August 16, 2012 7:28 PM
Subject: Re: xml parsing
Okay -- I've looked at the attachment -- remember when I mentioned namespaces a
while back? This docume
:46 AM, Irfan Sayed wrote:
>
>
> can you please give me sample code to store the xml contents to perl array
> using LibXML
>
> lets say xml files is as :
>
>
>
>
>
>
>
>
>
> regards
> irfan
>
I'm going to assume what you wanbt
can you please give me sample code to store the xml contents to perl array
using LibXML
lets say xml files is as :
regards
irfan
From: Shlomi Fish
To: Irfan Sayed
Cc: "beginners@perl.org"
Sent: Thursday, August 16, 20
hi,
i need to parse the xml file and store the data in array :
here is the code:
use XML::Simple;
my $ItemGroup = XMLin('C:\Users\bvcontrolbuild\Desktop\data.xml');
foreach my $BuildProject (@{$ItemGroup->{BuildProject}}) {
print $BuildProject->{Include} . "\n";
}
and xml file is :
Awesome
thanks all for reply . got it
regards
irfan
From: midhun
To: Rob Coops
Cc: Gergely Buday ; Irfan Sayed ;
"beginners@perl.org"
Sent: Thursday, August 16, 2012 2:41 PM
Subject: Re: search and replace
The issue is
$cs_project = &qu
hi,
i have following code to search single "\" and replace it with "\\"
but it is not doing as expected:
$csproj_text = "C:\build.txt";
$csproj_text =~ s/\\//g;
print "$csproj_text\n";
the output is : "Cuild.txt"
instead the output should be : "C:\\build.txt"
can someone please suggest, wha
thanks rob. how about Win32::File?
regards
irfan
From: Rob Coops
To: Irfan Sayed
Cc: "beginners@perl.org"
Sent: Monday, July 30, 2012 5:23 PM
Subject: Re: read file attributes
On Mon, Jul 30, 2012 at 1:24 PM, Irfan Sayed wrote:
hi,
&g
hi,
i need to access the attributes of file.
more precisely, i need to check if the file is digitally signed or not
for example; if i right click on file, then i need to check if the "digital
signature" tab is there or not for that specific file and valid certificate is
there.
please suggest
hi,
i have following string.
$val = "11.0.56.1";
i need to write regular expression which should match only "56" and print
please suggest
regards
irfan
the exit status
please suggest
regards
irfan
________
From: Irfan Sayed
To: Jim Gibson ; Perl Beginners
Sent: Thursday, July 28, 2011 12:06 PM
Subject: Re: print output on console at runtime
can this be happen if command needs to be executed on remote machine and the
can this be happen if command needs to be executed on remote machine and the
output needs to be forked on the local console at runtime
please suggest
regards
irfan
From: Jim Gibson
To: Perl Beginners
Sent: Wednesday, July 13, 2011 12:00 PM
Subject: Re: p
hi,
i am executing one shell script within perl script. now what i
need is , i need to make available all the variables set by that shell
script to perl script
for example
following is the shell script
build="abc"
export build
echo $build
now the value of $build i need to access in perl script
hi,
i am executing one shell script within perl script. now what i need is , i need
to make available all the variables set by that shell script to perl script
for example
following is the shell script
build="abc"
export build
echo $build
now the value of $build i need to access in perl script
hi,
i am getting error while using net::ssh::perl module to execute commands on
remote machine
following is the error :
Math::BigInt: couldn't load specified math lib(s),
fallback to Math::BigInt::Calc at /opt/ActivePerl-5.12/site/lib/Crypt/DH.pm
line 6
i have installed these modules: math::
thanks John and Jim
but, is this solution is applicable to only "find" command ?
if i change the command to some other system command , will this solution work?
plz suggest
From: Jim Gibson
To: Perl Beginners
Sent: Wednesday, July 13, 2011 12:00 PM
Subject: R
hi,
i need to print the output of a command on the console at runtime
lets say, i need to execute find command .as of now , what i am doing is ,
@cmd= `find . -name "abc"`;
print "@cmd\n";
now what happens is, once the command completed then it will send entire output
to @cmd
and then entire ou
the dump_log and input_log says , it has successfully connected to
remote server and executed the "ls " command but @lines does not
contain any output of "ls" command/
this is also not happening
plz suggest
From: Jim Gibson
To: Irfan Sayed ;
i have written my own code and i am printing dump_log and input_log as well
in the log , it says , everything is successful, i am getting the output of
"ls" command as well.in the log
but on the console it is not printing the output
plz suggest
regards
irfan
__
hi,
i am using Net::Telnet module to connect to remote hosts
i able to to successfully connect to remote host and run the "ls" command
but the issue is , the output of command is not getting printed to scalar
variable
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/bash\
Awsome!!!
this works fine . Rob you rock
thanks a lot.
--irfan
From: Rob Dixon
To: Perl Beginners
Cc: Irfan Sayed
Sent: Monday, June 27, 2011 11:54 PM
Subject: Re: rmdir
On 24/06/2011 10:43, Irfan Sayed wrote:
>
> i need to delete some direc
est
From: Ron Bergin
To: Irfan Sayed
Cc: Shlomi Fish ; "pa...@laposte.net"
; Perl Beginners
Sent: Monday, June 27, 2011 8:39 PM
Subject: Re: rmdir
Irfan Sayed wrote:
> even i tried windows del command
> but it prompts for confirmation to dele
how to unset the read-only attribute using win32::file module
there r i guess only two methods
1: Getattributes
2: setattributes
but the attribute which is already set, how to unset that ??
From: Rob Coops
To: Irfan Sayed
Cc: Shawn H Corey ; "begi
Corey
To: beginners@perl.org
Sent: Monday, June 27, 2011 6:09 PM
Subject: Re: rmdir
On 11-06-27 08:29 AM, Irfan Sayed wrote:
> even i tried windows del command
> but it prompts for confirmation to delete the files
> do u know how to suppress these prompts ? i did not find any swi
: Irfan Sayed ; Perl Beginners
Sent: Monday, June 27, 2011 5:53 PM
Subject: Re: rmdir
Hi Pangj,
On Mon, 27 Jun 2011 14:07:51 +0100
pa...@laposte.net wrote:
>
> Won't system "rm -rf /path/to/dir" just work for you?
>
1. This is on Windows, so "rm" may not be avail
i did that but no luck
is there any another way ?
regards
irfan
From: Shlomi Fish
To: Irfan Sayed
Cc: Perl Beginners
Sent: Monday, June 27, 2011 5:05 PM
Subject: Re: rmdir
Shlomi Fish (shlo...@shlomifish.org) added themselves to your Guest List
plz suggest . i am stuck
From: Irfan Sayed
To: Perl Beginners
Sent: Friday, June 24, 2011 3:13 PM
Subject: rmdir
hi,
i need to delete some directories recursively which are present at some shared
location
i tried file::path perl module but the issue
hi,
i need to delete some directories recursively which are present at some shared
location
i tried file::path perl module but the issue with that module is , it is not
deleting the root/parent dir
it deletes the subdirectories and all the files inside that but not removing
root dir
here i
thanks rob. it worked
From: Rob Dixon
To: beginners@perl.org
Cc: Irfan Sayed
Sent: Thursday, June 23, 2011 3:37 PM
Subject: Re: sort hash
On 23/06/2011 10:36, Irfan Sayed wrote:
> Hi,
>
> i need to sort hash in descending order.
> but the issue
Hi,
i need to sort hash in descending order.
but the issue is , in hash, i have key as integer value and the value
associated with that key is string
so when i do sort it does not really sort the hash on the key level
i used follwoing code
foreach my $key (sort { $hash_fin{$b} <=> $hash_fi
Hi,
is there any way or module in perl to create the virtual drive in windows
lets say , i have to create M: mapped to c:\test
so i can use command subst M: c:\test
but still , is there any better way
regards
irfan
Hi All,
I wrote perl script to draw html tables and send that html tables in mail . i
used two modules 1: html::tables and 2: mail::sendmail
but when i send mail , it never prints the actual table in the mail body
following is the code snippet,
use HTML::Table;
use Mail::Sendmail;
$table =
thanks it worked
From: Marco van Kammen
To: Irfan Sayed ; Perl Beginners
Sent: Wednesday, May 25, 2011 8:22 PM
Subject: RE: reg exp
Surely not perfect but this seems to work...
$lin = "2011/05/25 07:24:58 -0700 PDT";
$lin =~ /(^\d+\/\d+\/\d+).*/;
hi,
i have string like this
"2011/05/25 07:24:58 -0700 PDT" i need to match "2011/05/25"
i wrote reg ex like this: ^\d\d\d\d//\d\d/\d\d$ but it is not working
code is like this
$lin = "2011/05/25 07:24:58 -0700 PDT";
$lin =~ m/^\d\d\d\d//\d\d/\d\d$/;
print "$lin\n";
plz suggest
here is the actual code:
use strict;
use warnings;
use Cwd;
chdir "L:\\Console";
my $dir = getcwd();
print "current dir is : $dir\n";
my $res = system("dir");
$res=system("devenv","/rebuild","release","abc.sln","/useenv");
print "$res\n";
now, the issue is , at last the value of $res is 256 inst
i tried this code, but in actual it is not executing the solution file.
instead, it is opening the solution file and saying /rebuild release file not
found
plz suggest . i am really stuck
From: Rob Dixon
To: Perl Beginners
Cc: Irfan Sayed
Sent: Monday, May
Hi Rob,
thanks.
my entire build script is in perl and i want this command to be executed in
perl
so please let me know what is the best way to execute this command in perl
--irfan
From: Rob Dixon
To: Perl Beginners
Cc: Irfan Sayed
Sent: Monday, May 23
t: Monday, May 23, 2011 7:09 PM
Subject: Re: AW: proper syntax for command
On 11-05-23 09:17 AM, Irfan Sayed wrote:
> perl -e qx-"C:\\Program Files\\Microsoft Visual Studio .NET 2003\\Com
> mon7\\IDE\\devenv /rebuild release abc.sln /useenv"-;
Put the double quotes outside
__
From: Christian Marquardt
To: Irfan Sayed
Sent: Monday, May 23, 2011 5:45 PM
Subject: AW: proper syntax for command
Junk Score: 1 out of 10 (below your Auto Allow threshold)
| Approve sender | Block sender | Block domain
__
From: Shawn H Corey
To: beginners@perl.org
Sent: Monday, May 23, 2011 5:42 PM
Subject: Re: proper syntax for command
On 11-05-23 08:02 AM, Irfan Sayed wrote:
> L:\Console>perl -e qx/"C:\\Program Files\\Microsoft Visual Studio .NET
> 2003\\Com
> mon7\\IDE\\deven
hi all,
i am using following command to build the solution file using perl
perl says some error :
following is the error :
Bareword found where operator expected at -e line 1, near "qx/C:\\Program Files\
\Microsoft Visual Studio .NET 2003\\Common7\\IDE\\devenv /rebuild"
syntax error at -e lin
hi,
i need to catch "error" word in log file
i used reg exp like this :
if ($_ =~ /\berror\b/)
is this correct ?
--irfu
hi all,
i need to use sendmail module of perl to send mails. i have seen much perl
modules to send mails
but i dont know which one is suitable for my requirement
my requirement is :
i need such module which will allow me to generate/create table structure
format in the main body of mail
no dou
thanks rob.
is there any another shorter way??
capture_exec is just external perl module from cpan. i am just using it as it
is
regards,
irfan
From: Rob Dixon
To: Perl Beginners
Cc: Irfan Sayed
Sent: Wednesday, May 11, 2011 6:37 PM
Subject: Re: command
Hi,
i am running system command using following line in perl script
($stdout,$stderr) = capture_exec("$workspace\\Dev_Tools\\Nant\\bin\\nant
-buildfile:abc.build $target");
print "$stdout\n";
print "$stderr\n";
now the issue is , the contents of these variable gets printed on console after
th
Hi all,
i have command like this:
signtool.exe sign /f "\\bvctrlbm18-\Digital Signature\sympfx.pfx" /p "test"
"C:\workspace\ESM\Convergence\Trunk\bin\ESMPolicyToCCSStandard.exe"
i need to execute this command in perl script. i need to use qx/command/;
but i am stuck in formatting this command
thanks all
From: Shawn H Corey
To: beginners@perl.org
Sent: Thursday, April 28, 2011 7:55 PM
Subject: Re: regular expression
On 11-04-28 10:05 AM, Irfan Sayed wrote:
> hi,
>
> i have following code.
>
>
> $target = "abc,xyz";
&g
: Re: regular expression
Irfan Sayed wrote:
> hi,
Hello,
> i have following code.
>
>
> $target = "abc,xyz";
> print "$target\n";
> $target =~ s/,/\s/g;
> print "$target\n";
>
> i need to replace "comma" with whitespace for st
hi,
i have following code.
$target = "abc,xyz";
print "$target\n";
$target =~ s/,/\s/g;
print "$target\n";
i need to replace "comma" with whitespace for string "abc,xyz"
the output shud be "abc xyz"
the above regular expression does not do that . please suggest
--irfan
Hi All,
I am still facing the issue. can someone please suggest ??
~irfan
--- On Thu, 2/10/11, Irfan Sayed wrote:
From: Irfan Sayed
Subject: permission denied for Net::SSH::Perl module
To: beginners@perl.org
Date: Thursday, February 10, 2011, 11:09 AM
Hi All,
i am using Perl :net:ssh
Hi All,
i am using Perl :net:ssh module to connect remotely to server and execute the
remote command
following is the code :
my %opt = ( 'options' => [ 'ForwardAgent yes','RSAuAuthentication
yes','ConnectTimeout 120','ServerAliveInterval 60','ServerAliveCountMax
20','debug 1','identity_files /
thanks now it is working fine
--irfan
From: Alexey Mishustin
To: beginners@perl.org
Sent: Thu, October 14, 2010 11:08:24 AM
Subject: Re: perl net::ssh module
10/13/2010, "han sun" you wrote:
>2010/10/12 Irfan Sayed
>
>> now g
can someone please help.
i m totally stuck.
Regards
Irfan
From: Irfan Sayed
To: Alexey Mishustin ; beginners@perl.org
Sent: Tue, October 12, 2010 3:29:05 PM
Subject: Re: perl net::ssh module
now getting following error:
Key class 'Net::SSH::Perl::Key
now getting following error:
Key class 'Net::SSH::Perl::Key::RSA' is unsupported: Cannot find current script
'./igor_tar.pl' at /home/y/lib/perl5/5.8/FindBin.pm line 188
BEGIN failed--compilation aborted at /home/y/lib/perl5/5.8/FindBin.pm line 188.
here is the latest code:
my $host = "gwbl7001
i am using this code :
my $host = "abc.data.com";
my $user = "ybici1";
my $id_file = "/home/ybici1/.ssh/openid";
my $ssh = Net::SSH::Perl->new($host,$user,$id_file);
my($stdout, $stderr, $exit) = $ssh->cmd("ls /homes/ybici1");
print "$stdout\n";
print "$stderr\n";
print "$exit\n";
but stil
Hi,
I am using net::ssh module of Perl to connect to remote machine and execute
some
remote commands
i can connect using user-name and password hard coded in the script like below:
#!/usr/local/bin/perl
use strict;
use Net::SSH::Perl;
my $host="dna-ci2.data.corp.sp1.xxx.com";
my $cmd="ls";
my
Can somebody please give me any pointer
i am stuck
Regards
Irfan
From: Irfan Sayed
To: beginners@perl.org
Sent: Thu, September 2, 2010 7:09:55 PM
Subject: script to connect windows box from linux
Hi All,
I need to write one Perl script which does the
Hi All,
I need to write one Perl script which does the following tasks
1: from linux box , connect to windows box
2: run some commands
3: copy the output of those commands to linux box
can someone please guide me in how to achieve this using Perl script
any direction / advise would be helpful.
Thanks all
it worked.
--Irfan
From: Dr.Ruud
To: beginners@perl.org
Sent: Wed, August 18, 2010 12:35:57 AM
Subject: Re: print string in file
Irfan Sayed wrote:
> print MYFILE "\n" where MYFILE is a
> file
>handler.
s/handler/handle/
Hi All,
I need to print some string into the file.
the string is like this : ""
i have written code like this :
print MYFILE "\n" where MYFILE is a file
handler.
if i run this code , it is giving so many syntax errors.
any advice please
Regards
Irfan
Hi all,
I need to copy files from one machine to another machine. I need to use
Net::SCP module .
Can you please give/help me small Perl snippet which will copy the files
Please advice
Regards
Irfan.
Hi All,
Can somebody please tell me what is the difference between "=" and ":=" sign in
case of perl??
Regards
Irfan.
Hi All,
I am planning to wrire the perl script which will accomplish following task
1: login to remote windows machine
2: verify certain batch scripts are running or not
Please let me know if this can be possible using perl script.
Regards
Irf
Hi All,
I have one windows batch script in which i am calling one perl script. now what
i want to do is if the exit status of that perl script is non zero then batch
script should not continue executing further and if the exit status is zero
then only it shud further execute.
normally we use t
Hi All,
I am stuck on parsing file name if it has space.
I have file name as : file system.proj
now this file contains space between worf file and system
now i want to do ceratin operation on this file
but whenever i give this file name in any command then it fails saying that
file does not ex
Irf
From: Thomas Bätzler
To: beginners@perl.org
Cc: Irfan Sayed
Sent: Wednesday, June 17, 2009 5:38:45 PM
Subject: AW: file handle in perl
Irfan Sayed asked:
> i am still not able to modify existing lines in the existing file.
> here is my code
> plz
uot;$chver\n";
while () {
if ($_ =~ m/"OutputFilename"/) {
$_ =~ s/(\d*.\d*.\d*).msi/$chver.msi/;
print OUT "$_\n";
}
}
close FILE;
}
From: Irfan Sayed
To: "beginners@perl.org"
Sent: Wednesday, June 17, 2009 4:02:47 PM
Subje
it is not just 1.2.43 it may be anything
it may be like 2.3.56 or 2.0.12 and so on...
plz advice
From: Ajay Kumar
To: Irfan Sayed
Cc: "beginners@perl.org"
Sent: Wednesday, June 17, 2009 5:01:41 PM
Subject: RE: regular expression help
Hi Irfan
Hi All,
need help on regular expression.
i have string like this
"ProductName" = "8:EXFO RTU System 1.2.42"
now i want regular expression in such a way that it will change the line to :
"ProductName" = "8:EXFO RTU System 1.2.43"
i tried in the following way.
$_ =~ s/:(.*)\s(.*)\s(.*)\
thanks all
From: Ajay Kumar
To: Irfan Sayed
Cc: "beginners@perl.org"
Sent: Wednesday, June 17, 2009 3:42:41 PM
Subject: RE: file handle in perl
Hi Irfan
You can do all four task like below
1: open FILE ,">filename.txt" or die$!;
2: m
Hi All,
I am struggling with file handling in perl. i want to do following operation .
1: open the file
2: read the file
3: do the changes in specific lines
4: save the file
5: close the file
i am not getting which operand i should use to do this operation . i tried all
operands like >, >>, <,
Hi All,
I have perl script like this :
use strict;
use warnings;
use Cwd;
my $chver;
my $fina;
&chversion();
sub chversion {
print STDERR "Current directory is " . cwd() . "\n";
print "Reading version file\n";
open (VER2, "<",
'D:\hudson\workspace\RTU_Trunk_Build_Official\Trunk\versions.txt
Thanks . it worked.
regards
irf
From: Owen
To: Irfan Sayed
Cc: beginners@perl.org
Sent: Tuesday, June 9, 2009 12:03:49 PM
Subject: Re: CGI
> Hi ALL,
>
> i have written sample cgi script in perl. here it is
>
> #!/usr/bin/perl
> print &
Hi ALL,
i have written sample cgi script in perl. here it is
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <
Welcome to CGI scripting
HI
but when i am trying to execute this script it throws me an error like
Can't find string terminator "HI" anywhere befo
From: Eko Budiharto
To: Irfan Sayed
Cc: beginners@perl.org
Sent: Monday, June 8, 2009 1:17:59 PM
Subject: Re: CGI scripting
Regards
Irf
On Mon, Jun 8, 2009 at 2:06 PM, Irfan Sayed wrote:
> Hi All,
>
> I need to configure Apache web server to ex
Hi All,
I need to configure Apache web server to execute the CGI scripts (in perl).
Servers has windows XP operating system.
i have downloaded apache but i am not able to see any www folder in the
installed dir. of apache.
do i need to configure IIS on this machine? and then manualy create the
please adivce / help
Regards
Irfan
From: Irfan Sayed
To: beginners@perl.org
Sent: Monday, April 6, 2009 2:49:40 PM
Subject: perl script to check whether software is installed
Hi All,
i want to check whether a particular software is installed or not through
Hi All,
i want to check whether a particular software is installed or not through perl
script. if it is installed then uninstall that software and start installation
freshly. if it is not installed then start the installation.
I have following option to check
1: read the reqister and search fo
sorry i did not get. could you please explain once again
regards
jaya
From: Jenda Krynicky
To: Irfan Sayed
Sent: Thursday, April 2, 2009 3:36:57 PM
Subject: Re: WIN32:OLE module
Date sent: Thu, 2 Apr 2009 02:07:08 -0700 (PDT)
From: Irfan Sayed
rom: Jenda Krynicky
To: beginners@perl.org
Sent: Thursday, April 2, 2009 4:32:13 AM
Subject: Re: WIN32:OLE module
From: Irfan Sayed
>
> I have one perl script in which i am using win32:OLE perl module. Now
> i need to convert script so that it can support solaris OS also. can
> it be possib
thanks for the reply.
eventhough i use the VM then ultimately the script will run on windows machine
not on the solaris. isn't it
please advice
regards
jaya
From: Jeff Pang
To: beginners@perl.org
Sent: Wednesday, April 1, 2009 6:29:08 PM
Subject: RE: WIN32:OLE
1 - 100 of 104 matches
Mail list logo
