i have the following perl script.but it searches for a given filename.
i want to run the same script in my directoy which has subdirectories too and it has to display the file if sreach satisfies along with directory name.
can anyone help me:
perl script:
my $FILE = $ARGV;
for zf in... (4 Replies)
Hi All
I have files contains rows which look like this:
2 20090721_16:58:47.173 JSUD2 JD1M1 20 IAM 966591835270 249918113182 b 3610 ACM b 3614 ACM b 3713 CPG b 3717 CPG f 5799 REL b 5815 RLC b 5817 RLC :COMMA: NCI=00,FCI=6101,CPC=0A,TMR=00,OFI=00,USI: :COMMB: BCI=1234: :RELCAUSE:10:
... (1 Reply)
Hi,
I have a conf.file with the following values:
ef=78
b=40
ca=40
c=45/dev2
when I modify one of the line with the below awk script,it's modifying BUT it's placing the modified line in the last line :
input:- Configure b 45/dev4
output:-
ef=78
ca=40
... (2 Replies)
I need help modifying the code below.
DATAFILE is a log file.
I have two strings i need to search for in the log file.
The two strings are:
1. ERROR
2. com.rolander.promotions.client
awk 'BEGIN {
while((getline < "'${SFILE}'")>0)
S
FS="\n"; RS="\n"
} (11 Replies)
so i have this data in a file:
jime=1860,yime=1.23243,lime=
jime=1859,yime=1.23018,lime=
jime=1825,yime=1.15371,lime=
jime=1849,yime=1.20769,lime=
jime=1841,yime=1.1897,lime=
jime=1849,yime=1.20769,lime=
i use this code to calculate the percentage difference of the number in column 2... (9 Replies)
Hello,
I am using awk command to print some output, but there are some characters that I would like to remove from the output
awk '{print $5$6}'
the output I get is
column5/:column6
I am looking forward to remove the : and to get the output
column5/column6
Sorry if this question is... (4 Replies)
Hi,
I have to modify the 2nd and 3rd octet of the IP address through awk/sed.
For Example:
Given IP is : 10.205.22.254, it should be modified as 10.105.100.254 through awk/sed.
Kindly help me on this and let me know if you have any questions.
Thanks in advances. (2 Replies)
i have a php file that has this:
php.code
#!/usr/bin/php
<?php
phpinfo();
hlight_file(__FILE__);
?>
I want my awk code grab whatever is inbetween and including the "<?php" and "?>".
Then, it should scan all the entries between these two points. And if the entries between these... (10 Replies)
Discussion started by: SkySmart
10 Replies
LEARN ABOUT DEBIAN
prophet::test
Prophet::Test(3pm) User Contributed Perl Documentation Prophet::Test(3pm)
set_editor($code)
Sets the subroutine that Prophet should use instead of "Prophet::CLI::Command::edit_text" (as this routine invokes an interactive editor)
to $code.
set_editor_script SCRIPT
Sets the editor that Proc::InvokeEditor uses.
This should be a non-interactive script found in t/scripts.
import_extra($class, $args)
in_gladiator($code)
Run the given code using Devel::Gladiator.
repo_path_for($username)
Returns a path on disk for where $username's replica is stored.
repo_uri_for($username)
Returns a file:// URI for $USERNAME'S replica (with the correct replica type prefix).
replica_uuid
Returns the UUID of the test replica.
database_uuid
Returns the UUID of the test database.
replica_last_rev
Returns the sequence number of the last change in the test replica.
as_user($username, $coderef)
Run this code block as $username. This routine sets up the %ENV hash so that when we go looking for a repository, we get the user's repo.
replica_uuid_for($username)
Returns the UUID of the given user's test replica.
database_uuid_for($username)
Returns the UUID of the given user's test database.
ok_added_revisions( { CODE }, $numbers_of_new_revisions, $msg)
Checks that the given code block adds the given number of changes to the test replica. $msg is optional and will be printed with the test
if given.
serialize_conflict($conflict_obj)
Returns a simple, serialized version of a Prophet::Conflict object suitable for comparison in tests.
The serialized version is a hash reference containing the following keys:
meta => { original_source_uuid => 'source_replica_uuid' }
records => { 'record_uuid' =>
{ change_type => 'type',
props => { propchange_name => { source_old => 'old_val',
source_new => 'new_val',
target_old => 'target_val',
}
}
},
'another_record_uuid' =>
{ change_type => 'type',
props => { propchange_name => { source_old => 'old_val',
source_new => 'new_val',
target_old => 'target_val',
}
}
},
}
serialize_changeset($changeset_obj)
Returns a simple, serialized version of a Prophet::ChangeSet object suitable for comparison in tests (a hash).
run_command($command, @args)
Run the given command with (optionally) the given args using a new Prophet::CLI object. Returns the standard output of that command in
scalar form or, in array context, the STDOUT in scalar form *and* the STDERR in scalar form.
Examples:
run_command('create', '--type=Foo');
load_record($type, $uuid)
Loads and returns a record object for the record with the given type and uuid.
as_alice CODE, as_bob CODE, as_charlie CODE, as_david CODE
Runs CODE as alice, bob, charlie or david.
perl v5.10.1 2009-09-02 Prophet::Test(3pm)