system("cat FILENAME | perl -e 'while(<>) { print $_;}'");
system("cat FILENAME | perl -e 'while(<>) { $_ =~ s/XXX/YYY/g; print $_;}'");
First command works fine but second command gives the following error:
syntax error at -e line 1, near "{ =~"
syntax error at -e line 1, near ";}"... (2 Replies)
How to write perl substitute command in shell script without invoking a perl script file seperately.
for ex:
shell script to relace IT with CSC in a file using perl substitute command. (3 Replies)
Hi, I'm trying to get this script to work on an AIX 5.3 box, I couldn't get pgrep for AIX, I also realize that ps works differently on the IBM boxes. Could anybody just give me the specifics of a work around for my problem, I'll adjust the whole script:
#!/bin/bash
# applabs.com
#to do:
#... (3 Replies)
Hi,
I have a string like this user can specify different query sets that is why "or" is mentioned:
$string="](";
or
$string="]((";
or
$string="](((";
or
$string="]((((("; (1 Reply)
Hi,
I have string like this:
$str=' DNA OR ("rna AND binding AND protein")';
I just wanted to substitute AND with a blank. How can i do that?
I want the output like this:
$string= DNA OR ("rna binding protein") (3 Replies)
Hi gurus,
I need help with shell script. I have various INSERT queries which inserts data into database. I want to insert 3rd column data into newline for one particular table. I have very time long txt file everytime and it have various INSERT/UPDATE queries but i have to done with it only one... (8 Replies)
I'd like to do this using Perl command line (sorry no awk, sed, etc.)
replace the 3 middle lines in a file by one line:
aaa 123
bbb 234
ccc 34567
dd 4567
ee 567
to:
aaa 123
AAA
ee 567
I tried this but not working:
perl -pi -e "s/aaa\ 123\nbbb\ 234\nccc\ 34567/AAA/" file (2 Replies)
hi all,
how do i assign values passed in from command line to and sql statement in perl ?? e.g
i want to assign :name1 and :Name2 to be whatever is passed into the perl script command line
my $sqlStr = "select * from test_table where column1 = upper(nvl(:name1, name1 )) and column2... (1 Reply)
Hi All,
We need to run a Connect direct script on Unix server to send a file to Mainframe server and at mainframe end there need to run another job through Runtask with some parameters need to be passed from C:D (unix) to mainframe.
My question is I have to pass parameters like DSN and FNAME as... (2 Replies)
I have a string like.
ATATATATTATTATATTATATTATT
I want to substitute the characters to "C" by using these locations
3 7
10 18
15 20
desired Output:
ATCCCCCTTACCCCCCCCCCTTATT
any clue will be great help. :wall:
thanks in advance. (2 Replies)
Discussion started by: admax
2 Replies
LEARN ABOUT MOJAVE
test::requires5.18
Test::Requires(3) User Contributed Perl Documentation Test::Requires(3)NAME
Test::Requires - Checks to see if the module can be loaded
SYNOPSIS
# in your Makefile.PL
use inc::Module::Install;
test_requires 'Test::Requires';
# in your test
use Test::More tests => 10;
use Test::Requires {
'HTTP::MobileAttribute' => 0.01, # skip all if HTTP::MobileAttribute doesn't installed
};
isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile';
# or
use Test::More tests => 10;
use Test::Requires qw(
HTTP::MobileAttribute
);
isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile';
# or
use Test::More tests => 10;
use Test::Requires;
test_requires 'Some::Optional::Test::Required::Modules';
isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile';
DESCRIPTION
Test::Requires checks to see if the module can be loaded.
If this fails rather than failing tests this skips all tests.
Test::Requires can also be used to require a minimum version of Perl:
use Test::Requires "5.010"; # quoting is necessary!!
# or
use Test::Requires "v5.10";
AUTHOR
Tokuhiro Matsuno <tokuhirom @*(#RJKLFHFSDLJF gmail.com>
THANKS TO
kazuho++ # some tricky stuff
miyagawa++ # original code from t/TestPlagger.pm
tomyhero++ # reported issue related older test::builder
tobyink++ # documented that Test::Requires "5.010" works
ENVIRONMENT
If the "RELEASE_TESTING" environment variable is true, then instead of skipping tests, Test::Requires bails out.
SEE ALSO
"TestPlagger.pm" in t
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.18.2 2017-10-06 Test::Requires(3)