Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Rewrite sed to perl or run sed in perl
Top Forums Shell Programming and Scripting Rewrite sed to perl or run sed in perl Post 302940862 by Corona688 on Thursday 9th of April 2015 01:35:28 PM
Old 04-09-2015
Well, I don't.

This exact program:

Code:
next if $. == 1;

if(/.*del([A-Z]+)ins([A-Z]+).*NC_0{4}([0-9]+).*g\.([0-9]+)_([0-9]+)/)
{
        print join("\t", $3, $4, $5, $1, $2), "\n";
}

running on this exact input:

Code:
Input Variant   Errors  Chromosomal Variant     Coding Variant(s)
NM_004004.5:c.592_600delGTGTCTGGAinsCAGTGTTCATGACATTC           NC_000013.10:g.20763121_20763129delinsGAATGTCATGAACACTG NM_004004.5:c.592_600delinsCAGTGTTCATGACATTC    XM_005266354.1:c.592_600delinsCAGTGTTCATGACATTC XM_005266355.1:c.592_600delinsCAGTGTTCATGACATTC XM_005266356.1:c.592_600delinsCAGTGTTCATGACATTC

Gives this output:

Code:
13      20763121        20763129        GTGTCTGGA       CAGTGTTCATGACATTC

...so you're either running very different data or very different code.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Run perl script in the current process

I have a question regarding running perl in the current process. I shall demonstrate with an example. Look at this. sh-2.05b$ pwd /tmp sh-2.05b$ cat test.sh #! /bin/sh cd /etc sh-2.05b$ ./test.sh sh-2.05b$ pwd /tmp sh-2.05b$ . ./test.sh sh-2.05b$ pwd /etc sh-2.05b$ So... (10 Replies)
Discussion started by: vino
10 Replies

2. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

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

3. Shell Programming and Scripting

Problem with sed in perl!!

Hi, I am facing an issue with sed in perl. I have a file which has 2 header lines and one trailer line. I need to process the file without these headers and trailer. My file looks like : File.txt:- Header1 Header2 data1 data2 trailer For removing header and trailer from file I am using... (5 Replies)
Discussion started by: abhisharma23
5 Replies

4. Shell Programming and Scripting

Sed/Perl help

Some text is like this.... <table>This is first text.</table>mouse <table>This is second text</table>keyboard <table>This is third text</table>Pad I need to insert <a></a> between "mouse","keyboard","Pad". I it possible to do with sed/Perl ? Please help.. The text should look like... (8 Replies)
Discussion started by: gameboy87
8 Replies

5. Shell Programming and Scripting

Need Help with sed/perl !

In a file the content is 13 box google unix.com "he is google" hello "he is unix.com" - I need to replace each space char with "a" char but not inside the double quoted strings. So, the output must look like, 13aboxagoogleaunix.coma"he is google"ahelloa"he is unix.com"a- I tried with ... (9 Replies)
Discussion started by: gameboy87
9 Replies

6. Shell Programming and Scripting

re-Substitution Sed (or Perl)

I have a large text csv file that I'm working with. It will look something like this: D,",E",C O,"F,",I O,gh,R The second column always has a two digit random code (can be numbers, letters or any characters). When one of the characters happens to be a comma, the string is quoted. I want to... (5 Replies)
Discussion started by: beenny
5 Replies

7. Shell Programming and Scripting

awk sed perl??

Hi guys First of all a salute to this wonderful platform which has helped me many a times. Im now faced with something that I cannot solve. I have data like this 11:14:18 0.46975 11:14:18 0.07558 11:14:18 0.00020 11:14:18 0.00120 11:14:18 0.25879 11:14:19 0.00974 11:14:19 0.05656... (13 Replies)
Discussion started by: jamie_123
13 Replies

8. Shell Programming and Scripting

Rsync script to rewrite suffix - BASH, awk, sed, perl?

trying to write up a script to put the suffix back. heres what I have but can't get it to do anything :( would like it to be name.date.suffix rsync -zrlpoDtub --suffix=".`date +%Y%m%d%k%M%S`.~" --bwlimit=1024 /mymounts/test1/ /mymounts/test2/ while IFS=. read -r -u 9 -d '' name... (1 Reply)
Discussion started by: jmituzas
1 Replies

9. Shell Programming and Scripting

sed and egrep in perl

Hi i have a data file whcih contains the data as follows : FH332OY86|AAABBB CCCC DDDA FHLMC 30 8.000|FHLMC|3|30|8.00000000|1986|26.29164289|3.29544844|0.00000000|10.05940539|107.50704264|Mar 8 2013 12:00AM|20130311|D|DA|DAA|DAAC|201302 FH332OY87|AAABBB CCCC DDDA FHLMC 30... (9 Replies)
Discussion started by: ptappeta
9 Replies

10. Shell Programming and Scripting

Perl or sed command ?

Hi Guys Am working on a bash script but got stuck, in this line: 32 $configValues = ''; What would be the best command to enter the password between the " Perl or sed ? Been trying with Perl using this command: perl -pi -e 's/''/Seattle#1669!/g'... (5 Replies)
Discussion started by: Tox
5 Replies

LEARN ABOUT DEBIAN

impressive-gettransitions

IMPRESSIVE-GETTRANSITIONS(1)				      Debian GNU/Linux manual				      IMPRESSIVE-GETTRANSITIONS(1)

NAME

       impressive-gettransitions - Generate Impressive info scripts for LaTeX presentations

SYNOPSIS

       impressive-gettransitions FILE.tex

DESCRIPTION

       A simple script to produce a .info file for use with Impressive, using special comments in a LaTeX/Beamer file. FILE.tex is a file to be
       parsed into .info file. For each /fullpath/blah.tex /fullpath/blah.pdf.info gets produced.

SYNTAX

       In the LaTeX document, impressive-gettransitions counts the pages to determine the PDF slide number of each one.

       The simpler page changes are automatically detected, that is:
	   egin{frame} and:
	   pause

       Other, more elaborated page changes must be noted with a %O comment:
	   item<1-> Foo
	   item<2-> Bar %O

       The transition to apply can be specified in a %O comment:
	   egin{frame} %O SlideUp

OPERATION

       When the .info file corresponding to the LaTeX document already exist, impressive-gettransitions does not clear it, but only adds the
       transitions if finds to it.

       Thus, if you modified your document in a way that requires to completely replace the transitions, manually clear the PageProps section of
       the .info file. This can be done by running the following sed command:
	   sed -i -e "/^PageProps = {/,/^}/d" FILE.info

SEE ALSO

       impressive(1)

AUTHOR

       impressive-gettransitions (originally gettransitions) has been written by Rob Reid.

       This manpage has been originally written by Yaroslav Halchenko <debian@onerussian.com>.

Debian Project							    2012-02-10					      IMPRESSIVE-GETTRANSITIONS(1)
All times are GMT -4. The time now is 01:15 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy