Given a string of variable length, how do you add dashes every 4 characters?
Yes this is for a credit card number... instead of removing the dashes I need to add them to an all digits numbe...
Hi All,
I want to search all the script in folder /ABC/DEF and all it's sub folder for particular string embedded in the script. if the string found then it should get transfered to a file...
I'm just getting into the specifics of what I need to do, but for right now I would like just basic guidance. I have a fixed width text file from which I need to pull data and append to anothe...
I need to write a script in Perl that uses SFTP and SSH, for transfering files between windows and unix OS. The ssh on the windows is Cygwin open ssh. I am currenlty working on buliding th...
Hey all, what's wrong with this line using Perl's DBI module?
$sth = $dbh->prepare("insert into email_headers (`email_id`, `attachment`, `from`, `subject`, `received`)
...
Given a hash : %detailModel
with keys: $model = "Alpha Name of Automobile"
Holds Values as Pipe Delimited (E.G): PICKUP 1/2T|999999|1999|DODGE|2003|99
So Thats: Make|Account|Year|Make...
I'm trying to validate the date format in my input file. So far this is what I have and I am confused to how to write the ranges for the month and year. The information is below:
Sub v_da...
Hi I posted a question yesterday and assigned points before realizing that there was an issue with the results. The question is here:
http://www.experts-exchange.com/Programming/Languages/Sc...
the script below is sent from a cron job from the shell.
(the purpose is to check every X minutes to see if a provider is blocking email from our server)
I want to specify the true FROM addr...
I'm trying to print a simple string back to the browser using perl but I keep getting this error "uninitialized value in concatenation". Is it because my variable declaration is outside of th...
I have written this bit of a code.
if (sprintf("%02d:%s",split/:/,$c{$n}[$i]) lt sprintf("%02d:%s",split/:/,$t{$n}[$i+2])){
push @{$running{$AET[$i]}},"$n\n";
...
my $Excel = Spreadsheet::ParseExcel->new;
print "EXCEL: $Excel->Parse($abs_path)\n";
chmod(0777, $Excel->Parse($abs_path)) or die "Couldn't chmod the $abs_path";
my...
I want to take and email address and return the user and the domain in separate variables.
example: take doe.john@funky.domain.com and return
[1] doe.john
[2] funky.domain.com
I'm trying to create a form that would collect data using checkboxes and radio buttons in Perl. I've finally figured out how to collect them separately but I'm not really sure how to collect ...
Hi Guys,
I am trying to write a simple socket server which will accept multiple connections. I have this code code below which opens a socket and allows multiple connections. At the moment ...
Hello,
Let say I have a string $str = "location & forecating"
My requirement is to search for the character "&" and replace it with " * ". I tried it using the following syntax: $str =~...
Hi,
Using a Sun One Web Server (6.1), on a 404 redirect, call a cgi perl script which sends the request to a web application servlet.
I think I've found something that may help clear up th...
This statement in my perl script creates a file with a name of for example 112_345.333.333.zip
It is created from 4 different fields in a dbf file. If one of the fields does not exist, let'...
How to write function in Perl?
I want to write some function so that I can call it.
Anyone can help?
I need to parse a txt file and get a paragraph of text into a single variable. I've tried using the code below, but it only returns the first line of the text i need to parse.
The text star...
I have an old perl script that is kinda buggy at times, I have made a new script in ASP.NET that works and looks way better. I want to now redirect from the old perl one to the new one when so...
hi,
I'm currently trying to run a perl script which will calculate the current date and a previous date and then use these two dates in an sql query.
this is the script i'm using:
#!/...
I posted a question yesterday for help with a perl script and got a solution but it didn't work right in the test environment for me.
Here's what the script does.
It takes a file (filen...
Sample line in the text file (one of about 60000 lines, each of which will be parsed) which represents a record:
AN 0000001--DT Jnl Article-- MT Print^PDF --AU Smith, T.E.-- PA JAW -- TI The...
I'm currently using the perl script attached as a code snippet. I need to add a conditional statement to achieve the following:
If the 8th position in the source text file is a '0' then I n...
