#!/bin/bash
Primers=( NULL 'JOHN' )
for y in {1..1}
do
perl -ple '/'${Primers[$y]}'/ and y/ACGT/TGCA/ and $_ = reverse unless /^>/' test.txt
done
Note that by doing this anything that is in ${Primers[$y]} will be unprotected by quotes from the shell and will be subject to field splitting an globbing..
To illustrate (in an empty directory):
Code:
$ touch foo bar
$ var="a b*"
$ echo "$var"
a b*
$ echo ''$var''
a bar
Last edited by Scrutinizer; 03-23-2016 at 12:42 AM..
Hi All,
I have a file that I need to be able to find a pattern match on one line then parse data on the next or subsequent lines - I will know which line needs to be parsed beforehand.
This is what I currently have:
while (<COMMAND_OUT>) {
if ($_ =~ m/TEST/) {
... (4 Replies)
Hi All,
I have a file that I need to be able to find a pattern match on a line, search that line for a text pattern, and replace that text.
An example of 4 lines in my file is:
1. MatchText_randomNumberOfText moreData ReplaceMe moreData
2. MatchText_randomNumberOfText moreData moreData... (4 Replies)
Hi,
I have a line where i need to get certain part of it.. example..
text txt tt: 1909
thats how exactly it looks and all spaces are to be counted.. i need to retrieve 1909..
Thanks (11 Replies)
ok so what I am trying to do is search through 200k files that have ext .000 or .702. for *@yahoo.com.tw and if it finds that in the file. then remove the file. this is my code... what am i doing wrong. it seams it will only find asdflkajsdf@yahoo.com.tw as a string and not *@yahoo.com.tw so it... (5 Replies)
Hi All
I want to search a string from an array in Perl. If a match occurs, assign that string to a variable else assign 'No match'. I tried writing the script as follows but it's in vain. Please help me..
#!/usr/bin/perl
use strict;
my $NER;
my @text=("ORG","PER");
... (4 Replies)
Hello All,
Im a Hardware engineer, I have written this script to automate my job. I got stuck in the following location.
CODE:
..
..
...
foreach $key(keys %arr_hash) {
my ($loc,$ind,$add) = split /,/, $arr_hash{$key};
&create_verilog($key, $loc, $ind ,$add);
}
sub create_verilog{... (2 Replies)
Hi,
Need some help...
I want to execute sequence commands, like below
test1.sh
test2.sh
...etc
test1.sh file will generate log file, we need to search for 'complete' string on test1.sh file, once that condition success and then it should go to test2.sh file, each .sh scripts will take... (5 Replies)
Hello,
I want to search two strings in a file and print the same in the new file using perl script.
Can anyone suggest me how to do this...
The file looks like below:
<UML:ModelElement.requirement>
<UML:Dependency name="Row_MainColumn_FW_0009"> <UML:ModelElement.taggedValue>... (3 Replies)
Hello,
Opearting System Environment : HP Unix B.11.31 U
I look for script to
On specific folders list
On specific filelist
Search for given string
For Example :
r48_buildlib.txt contains
wpr480.0_20161027
wpr480.0_20161114
wpr481.0_20161208
wpr482.0_20161222... (4 Replies)
Discussion started by: Siva SQL
4 Replies
LEARN ABOUT DEBIAN
io::async::looptests
IO::Async::LoopTests(3pm) User Contributed Perl Documentation IO::Async::LoopTests(3pm)NAME
"IO::Async::LoopTests" - acceptance testing for "IO::Async::Loop" subclasses
SYNOPSIS
use IO::Async::LoopTests;
run_tests( 'IO::Async::Loop::Shiney', 'io' );
DESCRIPTION
This module contains a collection of test functions for running acceptance tests on IO::Async::Loop subclasses. It is provided as a
facility for authors of such subclasses to ensure that the code conforms to the Loop API required by "IO::Async".
TIMING
Certain tests require the use of timers or timed delays. Normally these are counted in units of seconds. By setting the environment
variable "TEST_QUICK_TIMERS" to some true value, these timers run 10 times quicker, being measured in units of 0.1 seconds instead. This
value may be useful when running the tests interactively, to avoid them taking too long. The slower timers are preferred on automated
smoke-testing machines, to help guard against false negatives reported simply because of scheduling delays or high system load while
testing.
TEST_QUICK_TIMERS=1 ./Build test
FUNCTIONS
run_tests( $class, @tests )
Runs a test or collection of tests against the loop subclass given. The class being tested is loaded by this function; the containing
script does not need to "require" or "use" it first.
This function runs "Test::More::plan" to output its expected test count; the containing script should not do this.
TEST SUITES
The following test suite names exist, to be passed as a name in the @tests argument to "run_tests":
io
Tests the Loop's ability to watch filehandles for IO readiness
timer
Tests the Loop's ability to handle timer events
signal
Tests the Loop's ability to watch POSIX signals
idle
Tests the Loop's support for idle handlers
child
Tests the Loop's support for watching child processes by PID
control
Tests that the "run", "stop", "loop_once" and "loop_forever" methods behave correctly
AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
perl v5.14.2 2012-10-24 IO::Async::LoopTests(3pm)