09-09-2011
perl: array matching
Hi,
I have two files like this
HTML Code:
file 1:
xxtcgtatccgaggga
cgcgcgggggagg
jjsjjjjsjjjdtcgtat
aaaaaaacccaaan
ggtcgtatffaadda
gggctggalllslllssdkk
HTML Code:
file 2:
tcgtat
gctgga
I want to 1) match each element of file2 to each element of file1.
2) delete all the matched alphabets and subsequent letters in the element of file1.
so the output should be
HTML Code:
xx
cgcgcgggggagg
jjsjjjjsjjjd
aaaaaaacccaaan
gg
gg
I tried with regular expressions but couldnt figure out how to match elements of one array with another array.
If possible please provide the code in perl because I just started learning perl.
thanks in advance
![Smilie Smilie](https://www.unix.com/images/smilies/smile.gif)
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
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)
Discussion started by: userix
2 Replies
2. UNIX for Dummies Questions & Answers
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)
Discussion started by: greptastic
2 Replies
3. Shell Programming and Scripting
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)
Discussion started by: jimmy_y
1 Replies
4. Shell Programming and Scripting
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)
Discussion started by: deo_kaustubh
3 Replies
5. Shell Programming and Scripting
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)
Discussion started by: jimmy_y
0 Replies
6. Shell Programming and Scripting
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)
Discussion started by: zatarra777
3 Replies
7. Shell Programming and Scripting
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)
Discussion started by: kittyluva2
4 Replies
8. Shell Programming and Scripting
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)
Discussion started by: sayachop
3 Replies
9. Shell Programming and Scripting
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)
Discussion started by: irudayaraj
2 Replies
10. Shell Programming and Scripting
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 DEBIAN
html::elementraw
HTML::ElementRaw(3pm) User Contributed Perl Documentation HTML::ElementRaw(3pm)
NAME
HTML::ElementRaw - Perl extension for HTML::Element(3).
SYNOPSIS
use HTML::ElementRaw;
$er = new HTML::ElementRaw;
$text = '<p>I would like this HTML to not be encoded</p>';
$er->push_content($text);
$h = new HTML::Element 'h2';
$h->push_content($er);
# Now $text will appear as you typed it, non-escaped,
# embedded in the HTML produced by $h.
print $h->as_HTML;
DESCRIPTION
Provides a way to graft raw HTML strings into your HTML::Element(3) structures. Since they represent raw text, these can only be leaves in
your HTML element tree. The only methods that are of any real use in this degenerate element are push_content() and as_HTML(). The
push_content() method will simply prepend the provided text to the current content. If you happen to pass an HTML::element to
push_content, the output of the as_HTML() method in that element will be prepended.
REQUIRES
HTML::Element(3)
AUTHOR
Matthew P. Sisk, <sisk@mojotoad.com>
COPYRIGHT
Copyright (c) 1998-2010 Matthew P. Sisk. All rights reserved. All wrongs revenged. This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
SEE ALSO
HTML::Element(3), HTML::ElementSuper(3), HTML::Element::Glob(3), HTML::ElementTable(3), perl(1).
perl v5.10.1 2010-06-09 HTML::ElementRaw(3pm)