05-19-2009
Thanks for the reply.
However, this is not working.
perl test_scr.pl 22,222-3333
Regards,
Prince
10 More Discussions You Might Find Interesting
1. AIX
Hello
I was installing ssh in Aix 4.3 but found that "perl.rte and rpm.rte" was not installed. but to my bad luck i was not able to find these packages for Aix 4.3. Ibm site just has these packages only for 5L. Can anyone help me in finding these packages.
Bala (1 Reply)
Discussion started by: balaji_prk
1 Replies
2. Shell Programming and Scripting
hi i am using this command which would return to be the filename
ls -l $dir1 | awk '{print $9}'
however on perl when i use:
`ls -l $dir1 | awk '{print \$9}' > tmp`
it gives me a different result. Everything is the same however a directory does not contain the the forward slash so i... (2 Replies)
Discussion started by: nookie
2 Replies
3. Shell Programming and Scripting
Hi all,
I'm a rookie in Perl scripting, and I have a task to do.
Generally it's something like that:
I have a reference file consisting of a number and name, tab-separated. One entry in one line, about 99 lines in file.
The other file is an XML log file, where in one specific branch, eg.... (8 Replies)
Discussion started by: tklich
8 Replies
4. Shell Programming and Scripting
I need this script to be able to check both IPs that are given to it and exit with an OK... if one of those expected IPs is returned.
The script is run like this:
/bin/dns_checker.pl -s 69.34.55.66 -q htt.jababa.com -e 69.44.56.33,45.47.43.55
Right now, the script is failing, but when I... (4 Replies)
Discussion started by: SkySmart
4 Replies
5. Shell Programming and Scripting
Hi,
I am new to perl scripting.
Can anybody help me in solving the below problem.
I have file, which is called map_file. According to map_file's last column data, i need a output file, which has repeats as like the map_file's last column name.
Thank you in advance
Vasanth (5 Replies)
Discussion started by: vasanth.vadalur
5 Replies
6. Shell Programming and Scripting
#!/bin/bash
perl -nle'
/(?:date|time|ref)/ and print join " ", /(?:date|time|ref)+/g
or print
' inputfile
Problem I have is that I want to delete words that are on the line of the 3 words above (date, time, and reference). However, I do not want to delete the words... (9 Replies)
Discussion started by: linuxkid
9 Replies
7. Shell Programming and Scripting
For the following command I need a perl script equivalent with a couple of more things -
cat /tmp/mail |grep Appname > /tmp/mail1;cat /tmp/mail >> /tmp/mail1; mail -s "mail subject here" allan@mail.com < /tmp/mail1; >/tmp/mail ; >/tmp/mail1
==================
cat /tmp/mail
***** Alert *****... (4 Replies)
Discussion started by: jacki
4 Replies
8. Shell Programming and Scripting
i have the following script:
#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;
my $stun_client = STUN::Client->new;
$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;
my $ip = $r->{ma_address};
print "IP: $ip\n\nResult (hash):... (5 Replies)
Discussion started by: SkySmart
5 Replies
9. Shell Programming and Scripting
Hi,
I want to validate strings in perl, the string may contains characters from a-zA-Z0-9 and symbols +-_.:/\
To validate such a string I computed a regex
if ($string =~ m/^/) {
print "valid";
} else {
print "invalid";
}
but this regex also validates strings that contain... (8 Replies)
Discussion started by: zing_foru
8 Replies
10. Shell Programming and Scripting
Hi, I will be asking a series of major newbie questions, and you help is greatly appreciated in advance!!
I have to write a script that will parse a logfile in a directory, the directory name changes daily.
So far I have:
#!/usr/bin/perl
open LOGFILE,">logfile.txt";
($day, $month,... (3 Replies)
Discussion started by: BG_JrAdmin
3 Replies
LEARN ABOUT DEBIAN
vend::payment::sage
Vend::Payment::Sage(3pm) User Contributed Perl Documentation Vend::Payment::Sage(3pm)
NAME
Vend::Payment::Sage - Interchange Sage Support
SYNOPSIS
&charge=sage
or
[charge route=sage param1=value1 param2=value2]
PREREQUISITES
Net::SSLeay
or
LWP::UserAgent and Crypt::SSLeay
Only one of these need be present and working.
DESCRIPTION
The Vend::Payment::Sage module implements the sage() routine for use with Interchange. It is compatible on a call level with the other
Interchange payment modules.
To enable this module, place this directive in "interchange.cfg":
Require module Vend::Payment::Sage
This must be in interchange.cfg or a file included from it.
Make sure CreditCardAuto is off (default in Interchange demos).
The mode can be named anything, but the "gateway" parameter must be set to "sage". To make it the default payment gateway for all credit
card transactions in a specific catalog, you can set in "catalog.cfg":
Variable MV_PAYMENT_MODE sage
It uses several of the standard settings from Interchange payment. Any time we speak of a setting, it is obtained either first from the
tag/call options, then from an Interchange order Route named for the mode, then finally a default global payment variable, For example, the
"id" parameter would be specified by:
[charge route=sage id=YourSage]
or
Route sage id YourSageID
or
Variable MV_PAYMENT_ID YourSageID
The active settings are:
id Your Sage account ID, supplied by Sage when you sign up. Global parameter is MV_PAYMENT_ID.
remap
This remaps the form variable names to the ones needed by Sage. See the "Payment Settings" heading in the Interchange documentation for
use.
Troubleshooting
Try the instructions above, then enable test mode. A test order should complete.
Then move to live mode and try a sale with the card number "4111 1111 1111 1111" and a valid expiration date. The sale should be denied,
and the reason should be in [data session payment_error].
If nothing works:
o Make sure you "Require"d the module in interchange.cfg:
Require module Vend::Payment::Sage
o Make sure either Net::SSLeay or Crypt::SSLeay and LWP::UserAgent are installed and working. You can test to see whether your Perl
thinks they are:
perl -MNet::SSLeay -e 'print "It works
"'
or
perl -MLWP::UserAgent -MCrypt::SSLeay -e 'print "It works
"'
If either one prints "It works." and returns to the prompt you should be OK (presuming they are in working order otherwise).
o Check the error logs, both catalog and global.
o Make sure you set your account ID properly.
o Try an order, then put this code in a page:
<XMP>
[calc]
my $string = $Tag->uneval( { ref => $Session->{payment_result} });
$string =~ s/{/{
/;
$string =~ s/,/,
/g;
return $string;
[/calc]
</XMP>
That should show what happened.
o If all else fails, consultants are available to help with integration for a fee. See http://www.icdevgroup.org/
o Sage technical docs are available at http://www.sagepayments.com/Support/Documentation.aspx
BUGS
There is actually nothing *in* Vend::Payment::Sage. It changes packages to Vend::Payment and places things there.
AUTHORS
Davor Ocelic, based on original code by Cameron Prince, Mark Johnson and Mike Heins.
perl v5.14.2 2011-03-09 Vend::Payment::Sage(3pm)