Hi All,
what's wrong in this code...
Reguired Output: \\DirPath\Dir1\ Dir2\File2.ext
[CODE=perl]
$FilePath='
\\DirPath\Dir1\ Dir2\File1.ext
\\DirPath\Dir1\ Dir2\File2.ext
\\DirPath\Dir1\ Dir2\File3.ext
';
if($FilePath=~m #\\\\DirPath\\D ir1\\Dir2\\File 2.ext#)
{
print "File Path: $&\n";
}
else
{
print...
cnsabar
Last Activity: Oct 14 '09, 09:23 AM
Joined: Dec 11 '07
Location:
-
Reg. Regular Expression...
-
Hi,
I found the solution. but do know why this is happening.
The specified script works fine when I read a file Content using following syntax
and its not works when I read a file data using utf-8 formatCode:open(FR, "<$FilePath");
Can anyone guide me regarding this.Code:open(FR, "<:utf8", "$FilePath");
-
Perl Regular Expression
Hi All,
I facing a problem in matching flat character symbol.
I cant able to find the · this character in the word.
Here is my script.
while running above script it prints "Not Match...Code:$word = "Baal·bek"; if($word=~m#·#) { print "Match found"; } else { print "Not Match found"; } -
Modules and Function..
Hi All.,
I am using lot of function in defined modules...
I need to know which one will be fast
1. Calling function inside the program
2. Calling function by using modules in the program
Thanks,
Sabarish -
Hi ,
By using this script , you can find the path of perl file...
[code = "perl"]
use English;
print "Perl Path: $PROGRAME_NAME" ;
[/code]Leave a comment:
-
Compare PDF document
Hi.,
Is there any module avaliable to compare pdf document with text, image, etc
I tried using CAM::PDF.,
but it gives error message as
"Failed to open filter FlateDecode (Text::PDF::Fla teDecode)" -
U can try another way also without installing several modules..
Just make a copy of required modules in one server system.
Call that module exists path using
[code="perl"]
use lib 'module exists path';
[/code]Leave a comment:
-
Hi.,
I found another way to do that by specifying
Also one more thing, Is there any way to define the path where PPM modules to be installed instead of default path "c:/perl/site/lib"Code:use lib 'path/servername where modules installed';
Leave a comment:
-
Calling User defined package from other system
Hi All,
Is there any way to call user defined perl package from other system.
For Example.
In my perl script, I am defining a package/modules using
[code="perl"]
use myPackage;
...
[/code]
If myPackage.pm is exists in some other system.
how can I call that package without copying to my system.
Looking for Ur help,... -
I tried using Image::ExifTool .
Using this I can only able to read meta information in pdf document not able to write..Leave a comment:
-
Modify XMP Meta Information
Hi.,
Is there any way to modify XMP Meta Information in pdf document properties using perl...
I surfed for a long time, but doesn't getting the way...
Looking for your help -
Hi.,
while surfing in the net .,
I found one site "160by2" that provides email facilities to send a sms to mobile .
like "9739088575@160 by2.com".
this facility support all networks in india.
Only drawback is it allowed only 80 characters, and some adds are append in the message..
Like this if anyone come across to know any sites., with somewhat increase the size....Leave a comment:
-
Extracting sit file..
Hi.,
Is there any perl modules available for extracting .sit files
Looking for Ur help and suggetions
Thanks
Sabarish -
Hi.,
By Using the link you given, it is possible only to send sms to airtel network.,
for Vodafone, BSNL network it is not possible.,
Is there any other site provide send sms through e-mailLeave a comment:
-
Problem in Sending sms to mobile
Hi.,
I am using following code to send sms through e-mail
...Code:use Mail::Sendmail; %mail = (To => '10digitMobileNo@airtelkk.com', From => "mymail\@company.com", Message => "SMS Server" ); $mail{Smtp} = '10.0.1.6'; if (sendmail (%mail)) { print "SMS sent OK.\n" } else { print "Error sending mail: -
By Using this function , its works fine when the I press Ctrl + C
But it wont reflect anything when I close the command prompt using close icon on the right corner of the window....Leave a comment:
-
Hi.,
Try this.,
[code=perl]
$InputString=~s #(\W)#\\$1#gi;
[/code]...Leave a comment:
-
Hi Kevin,
Thanks for your help and suggestion.,
Using the above logic,
Now I can able to produce the expected output in my program.
Thanks,...Leave a comment:
-
Hi Jeff.,
Sorry for belated reply.,
I go through the link specified by U in last thread..
but it didn't give any result when I run the sample script in the specified module....Leave a comment:
-
How to call on terminate function in perl
Hi.,
I want to call some function when the user force to terminate the perl program.
For example.,
I write a program to create a file when the program starts...
Also I need to delete a file when the user force to terminate the process
i.e Calling some function when the user hitting Ctrl+C in perl command prompt..
Looking for Ur suggestions.
Thanks.
No activity results to display
Leave a comment: