Sponsored Content
Full Discussion: Substitute Perl Script
Top Forums Shell Programming and Scripting Substitute Perl Script Post 302506045 by Takau on Friday 18th of March 2011 10:31:29 AM
Old 03-18-2011
Below is a snippet from the file since it is quite large, there would be one of these for each entries.

Code:
# 'Test' host definition
define host{
        use                     generic-host
        host_name               Test
        alias                   Test
        address                 127.0.0.1
        check_command           check-host-alive
        max_check_attempts      3
        check_period            24x7
        notification_interval   120
        notification_period     24x7
        notification_options    d,u,r
        }

 

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Problem with cat with PERL Substitute

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)
Discussion started by: jingi1234
2 Replies

2. UNIX for Dummies Questions & Answers

how to write perl substitute command in shell scripts

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)
Discussion started by: param_it
3 Replies

3. AIX

pgrep substitute for porting a linux script to AIX 5.x

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)
Discussion started by: thebytegrill
3 Replies

4. Shell Programming and Scripting

How to substitute brackets in the beginning of string in perl?

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)
Discussion started by: vanitham
1 Replies

5. Shell Programming and Scripting

How to substitute the value with in double quotes in perl?

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)
Discussion started by: vanitham
3 Replies

6. Shell Programming and Scripting

Shell script: substitute value in text file

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)
Discussion started by: mirfan
8 Replies

7. Shell Programming and Scripting

Perl: substitute multiple lines

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)
Discussion started by: tintin78899
2 Replies

8. Shell Programming and Scripting

substitute variable for values in perl

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)
Discussion started by: cesarNZ
1 Replies

9. Shell Programming and Scripting

How to substitute a varible in script having value including quotes?

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)
Discussion started by: matrix001
2 Replies

10. Programming

Substitute string using location (preferably perl).

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
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)
All times are GMT -4. The time now is 03:58 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy