Perl Forum

Hi I tried a simple script to remove the directory as below: #!/usr/bin/perl -w use File::Find; #finddepth(sub{rmdir},'.') system('rm -rf test3'); 1. finddepth(sub{rmdir},'.') removed all the empty directories. 2. But I wanted to remove all the directories which are not empty. Hence I tried system('rm -rf test3'); to remove all...

Exactly match a 4 digit number My program but output is 2569 but I want it to output four digit no 2004. use strict; my $string = "I have 256987, 2004 and I a 587458"; if ($string =~ /(\d{4})/) { print $1;

hi guys, i've read a lot of thread of converting excel data into CSV files. however, i need a perl script to convert CSV file into excel file now, if required modules is needed, it would be preferable if win32::OLE is used.. currently what i know is when i change my extension as .csv file mannually, it get changed to an excel file through...

Hi guys, I had a problem while writing into an Excel file. What i want to do is: i want to write the contents of 2 variables in one cell of the Excel field. to write the contents of one variable, i use $worksheet->write_string($row, $col, $value1, $format); this works fine.

I am in unix and in my perl program, I am trying to move back to the directory the program was originally started in. Obviously, at somepoint in my program it has to move to another directory, and now I want to go back. I tried this lines of perl at the start of the program: $directorylocation=`pwd`; and then this command later on when it is...

Hi, I post this question at a time when my neck is on the line. i have a problem in getting the directory permission using the -w operator. i need to get the permission before I run the xcopy system command. I have to use core Perl modules and nothing else. So the restriction. My code had a problem working with this operator "-w",...

Is there a Date module which I can use to compare Date Strings ? e, g. if I have the following two date strings in different format: Feb 9 15:00 2004/02/18 21:29:05 How do I convert them into a common format and then compare them to see which date is more current ?

Hi y'all! I'm new at perl, and I'm trying to automate a file fetch. I have this url (in this example called 'https://GetMyFile'), which, when I paste it into a browser, gives me the pop-up "File Download" - Do you want to open or save this file?.. And clicking 'save' gives me the file I want. I would like to achieve the same result...

This seems inconsistent: #!/usr/bin/perl -w use strict; my @y; if(!defined(@y)) {

Hello, Guys I'm TOTALLY new at programming (in fact i HATE it) but i heard so much good things about Perl (that its also EASY) i decided to start with it. But I'm having trouble installing it on Windows Vista, i used the website below and i thought i installed Perl using the MSI installer below. But to no avail i can't even get the...

Hi, I have a perl script that is running in windows environment. This is calling python BodyTextExtractor. My problem is: I have to move the script to run on linux and I have to change the following part of the script and I don't know how. Please help me! use Win32::Job; ............................................... $job =...

i wonder am i make a mistake or not... use Data::Dumper; my @array= qw(1 2 3 4 5 6 8 9 2 5); my $highest=@array; foreach my $number (@array) { if (@array > $highest) { $highest = @array;

Hi everyone, I have a question about spaces in directory names. If I want to use mkdir something, everything works out, but in this case: #!/usr/local/bin/perl # use warnings; $homedir = "C:/SCRIPT/CJ0249A.1/\"Project Information\""; $file = "$homedir/exist.txt";

Hello, I have a perl program which parses an input file for specific error patterns and generates an output file with all these lines. One of the error patterns that I am looking at spans across multiple lines. I can detect it can as error pattern using information from the first line but cannot print out the remaining lines. Is there a way...

Isn't there a simple way to add a dir to my PATH env? Seems like all the examples I've seen so far all in one way or another is parsing the current PATH and puts it all together, including the new dir. Isn't there a simpler version of this whole process? - manzoor

Hi All, I am writing a script for getting the ASCII value for the keyboard input. The script: #!c:\perl\bin -w # sascii - Show ASCII values for keypresses use Term::ReadKey; ReadMode('cbreak');

I am creating a search engine that will scan pages on my Web site. I do not want any false-positive hits, being defined as any match that does not appear on the page using a Web browser. I am using a string of regexp statements to do this. The first one removes anything before the <body> tag since it contains, among other things, general...

I'm tyring to write something that will send a simple email using Perl so far this is what I have #!/usr/bin/perl -w use strict; my $executable = "saplotus.exe'; my $server = 'test@domain'; my $from = 'aetinti@gmail.com';

hi i have a piece of code my $text = "<A>ABC</A>"; if ( $text =~ m/ <A>(.*)<\/\1> / ) { print "text is $text\n"; }

ADODB.Recordset "The connection cannot be used to perform this operation." "Microsoft Access Driver" ERROR 0X800A0E7D OLE exception from "ADODB.Recordset": The connection cannot be used to perform this operation. It is either closed or invalid in this context. Win32::OLE(0.1707) error 0x800a0e7d in METHOD/PROPERTYGET "Open" !stupid...

I looked at perl.com and tried to install the perl for windows. Neither of the Win98 nor the NT version worked... Is there support under XP?

Could someone tell me how to remove all html tags (and anything inside tags) by perl. Some people suggested me to use HTML::TagFilter but i could not find window version. Thanks very much for your help. JJL

Hello, I would like to prevent my perl program to be executed several times simultaneously (if the program is already running, I would like to display a message like "another instance of this program is already running, please try again in a couple of minutes). For doing this, I guess I have to check the running processes... but I don't...

'Ello, I'm writing a perl script to spawn child processes to execute jobs. The jobs are system calls. I use open(SYSCALL, "cmd |), to make the system calls because I need the pipe so I can log STDOUT to a file. On Windows my script locks up after the first job is done. It works fine on unix. I am using fork to spawnt the child...

Hi All, I have a perl script which starts a java process using Win32::Process. Here is the code to start the java proces: Win32::Process::Create($ProcessObj, shift(@args), join(" ", @args), 0,...