I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows:
$count = 0;
while ( $count < $#test )
{
`sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`;
`cat 0 >... (2 Replies)
Hi,
I have two files:
file 1 has a list :
ABC_1024
ABC_4507
ABC_5589
ERT_4389
DDB_5507
file 2 has an array:
ABC_1011,ABC_1024,ABC_5670 DDB_4567 ERT_2345 January08
ABC_9099 DDB_9087 ERT_4567 March07
I need to go line by line in file 1... (2 Replies)
Hi Everyone,
I have:
my @No=qw(032106 032630 0380 034010 035110 0354801111);
my $str_No=join(';', @No);
I have a string $strA="03263033", so in order to determine this $strA area code matches with @No, I can do:
if ( (rindex($str_No,substr($strA,0,5))))== -1) ) {
print "Not... (1 Reply)
I need to use array elements while pattern matching.
@myarr = (ELEM1, ELEM2, ELEM3);
following is the statement which I am using in my code. Basically I want to replace the ELEM1/2/3 with other thing which is mentioned as REPL here.
if (condition) {
s/(ELEM1|ELEM2|ELEM3): REPL: /;
}
I... (3 Replies)
Hi Everyone,
#!/usr/bin/perl
use strict;
use warnings;
my @test=("a;b;qqq;c;d","a;b;ggg;c;d","a;b;qqq;c;d");
would like to split the @test array into two array:
@test1=(("a;b;qqq;c;d","a;b;qqq;c;d"); and @test2=("a;b;ggg;c;d");
means search for 3rd filed.
Thanks
find the... (0 Replies)
I am trying to do a comparison to see if these two string arrays match.
I have tried assigning the array variable to another variable to get it to work but i can't figure it out. Here is what I have.
#example of items that could be in the array
#string="TEST"... (3 Replies)
I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense.
... (4 Replies)
Hi everyone
I have one question about using array in perl. let say I have several log file in one folder.. example
test1.log
test2.log
test3.log
and the list goes on..
how to make an array for this file? It suppose to detect log file in the current directory and all the log file will... (3 Replies)
I have an array and two variables as below,
I need to check if $datevar is present in $filename.
If so, i need to replace $filename with the values in the array.
I need the output inside an ARRAY
How can this be done.
Any help will be appreciated. Thanks in advance. (2 Replies)
Hi all,
Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM.
Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers.
At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies
LEARN ABOUT CENTOS
perl::critic::command
Perl::Critic::Command(3) User Contributed Perl Documentation Perl::Critic::Command(3)NAME
Perl::Critic::Command - Guts of perlcritic.
SYNOPSIS
use Perl::Critic::Command qw< run >;
local @ARGV = qw< --statistics-only lib bin >;
run();
DESCRIPTION
This is the implementation of the perlcritic command. You can use this to run the command without going through a command interpreter.
INTERFACE SUPPORT
This is considered to be a public class. However, its interface is experimental, and will likely change.
IMPORTABLE SUBROUTINES
"run()"
Does the equivalent of the perlcritic command. Unfortunately, at present, this doesn't take any parameters but uses @ARGV to get its
input instead. Count on this changing; don't count on the current interface.
TO DO
Make "run()" take parameters. The equivalent of @ARGV should be passed as a reference.
Turn this into an object.
AUTHOR
Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>
COPYRIGHT
Copyright (c) 2005-2011 Imaginative Software Systems. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license
can be found in the LICENSE file included with this module.
perl v5.16.3 2014-06-09 Perl::Critic::Command(3)