Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl print between 2 patterns
Top Forums Shell Programming and Scripting Perl print between 2 patterns Post 302533487 by killer54291 on Thursday 23rd of June 2011 09:22:27 PM
Old 06-23-2011
Well, sadly, it doesn't seem to work. I used some test text with the trim thing you linked to, did not work with newlines. look:
Code:
sub trim{
   my $string = shift;
   $string =~ s/.*real\(.*\)not.*/\1/g;
   return $string;
}
print "[".trim("My real name is not Deadman")."]\n";

And the output was
Code:
[name is]

Which worked perfectly. Sadly, next try:
Code:
sub trim{
   my $string = shift;
   $string =~ s/.*real\(.*\)not.*/\1/g;
   return $string;
}
print "[".trim("My\nreal\nname\nis\nnot\nDeadman")."]\n";

And the output was
Code:
[My
real
name
is
not
Deadman]

And just in case that was a special case, I tried it with what I needed, again, printed the entire thing.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Search for the two patterns and print everything in between

Hi all, I have a file having data: @HWUSI-EAS1727:19:6:1:3674:984:0:1#GTTAATA NTTGGGTTTTCT @HWUSI-EAS1727:19:6:1:3674:984:0:1#GTTA... NTTGGGTTTTCT @HWUSI-EAS1727:19:6:1:3674:984:0:1#.....CT NTTGGGTTTTCT I want to print everything starting from # till line ends. can you please help me how... (5 Replies)
Discussion started by: pirates.genome
5 Replies

2. Shell Programming and Scripting

print all between patterns with special chars

Hi, I'm having trouble with awk print all characters between 2 patterns. I tried more then one solution found on this forum but with no success. Probably my mistakes are due to the special characters "" and "]"in the search patterns. Well, have a log file like this: logfile.txt ... (3 Replies)
Discussion started by: ginolatino
3 Replies

3. Shell Programming and Scripting

To print certain patterns in a column

Hi, From my input files, I want to print $1, $2 and only certain pattern in $4 (EC). I use this code but it print all the words in $4 awk -F"\t" '$4 {print $1,$2,$4}I just want EC follows by the numbers in $4 The input file as follows:- Entry Entry name Status Names Q01284 ... (7 Replies)
Discussion started by: redse171
7 Replies

4. Shell Programming and Scripting

Need to print between patterns AND a few lines before

I need to print out sections (varying numbers of lines) of a file between patterns. That alone is easy enough: sed -n '/START/,/STOP/' I also need the 3 lines BEFORE the start pattern. That alone is easy enough: grep -B3 START But I can't seem to combine the two so that I get everything between the... (2 Replies)
Discussion started by: Finja
2 Replies

5. Shell Programming and Scripting

How to print only lines in between patterns?

Hi, I want to print only lines (green-italic lines) in between first and last strings in column 9. there are different number of lines between each strings. 10 AUGUSTUS exon 4558 4669 . - . 10.g1 10 AUGUSTUS exon 8771 8889 . ... (6 Replies)
Discussion started by: jamo
6 Replies

6. Shell Programming and Scripting

Print all lines between patterns

Hi Gurus, I have a requirement where I need to display all lines between 2 patterns except the line where the first pattern in it. I tried the following command using awk but it is printing all lines except the lines where the 2 patterns exist. awk '/TRANSF_/{ P=1; next } /Busy/ {exit} P'... (9 Replies)
Discussion started by: svajhala
9 Replies

7. Shell Programming and Scripting

Perl : to print the lines between two patterns

Hello experts, I have a text file from which I need to print all the lines between the patterns. Could anyone please help me with the perl script. names.txt ========= Badger Bald Eagle Bandicoot Bangle Tiger Barnacle Barracuda Basilisk Bass Basset Hound Beetle Beluga... (7 Replies)
Discussion started by: scriptscript
7 Replies

8. Shell Programming and Scripting

Print between multiple patterns

Hello Gurus, I have a file this Dir Path 1 Connection pool="somename"; "DataSource Name"="DS name"; Password="pwd"; User Id="uid";some other fields Dir Path2 Password="pwd2"; User id="uid2"; Connection pool="somename2"; "datasource name"="DS name2";some other fields. Under each dir... (14 Replies)
Discussion started by: sirababu
14 Replies

9. Shell Programming and Scripting

Find matched patterns and print them with other patterns not the whole line

Hi, I am trying to extract some patterns from a line. The input file is space delimited and i could not use column to get value after "IN" or "OUT" patterns as there could be multiple white spaces before the next digits that i need to print in the output file . I need to print 3 patterns in a... (3 Replies)
Discussion started by: redse171
3 Replies

10. Shell Programming and Scripting

How to print different multiple lines after two patterns?

Hello, I need to print some lines as explained below, TXT example 1111 2222 3333 4444 5555 6666 7777 8888 6666 9999 1111 2222 3333 4444 5555 (8 Replies)
Discussion started by: liuzhencc
8 Replies

LEARN ABOUT SUSE

gtk2::pagesetup

Gtk2::PageSetup(3)					User Contributed Perl Documentation					Gtk2::PageSetup(3)

NAME

       Gtk2::PageSetup

HIERARCHY

	 Glib::Object
	 +----Gtk2::PageSetup

METHODS

   pagesetup = Gtk2::PageSetup->new
   pagesetup = Gtk2::PageSetup->new_from_file ($file_name)
       o   $file_name (localized file name)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.12

   pagesetup = Gtk2::PageSetup->new_from_key_file ($key_file, $group_name)
       o   $key_file (Glib::KeyFile)

       o   $group_name (string or undef)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.12

   double = $setup->get_bottom_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_bottom_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

   double = $setup->get_left_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_left_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

   $setup->load_file ($file_name)
       o   $file_name (string)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.14

   $setup->load_key_file ($key_file, $group_name)
       o   $key_file (Glib::KeyFile)

       o   $group_name (string or undef)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.14

   pageorientation = $setup->get_orientation
   $setup->set_orientation ($orientation)
       o   $orientation (Gtk2::PageOrientation)

   double = $setup->get_page_height ($unit)
       o   $unit (Gtk2::Unit)

   double = $setup->get_page_width ($unit)
       o   $unit (Gtk2::Unit)

   double = $setup->get_paper_height ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_paper_size_and_default_margins ($size)
       o   $size (Gtk2::PaperSize)

   papersize = $setup->get_paper_size
   $setup->set_paper_size ($size)
       o   $size (Gtk2::PaperSize)

   double = $setup->get_paper_width ($unit)
       o   $unit (Gtk2::Unit)

   double = $setup->get_right_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_right_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

   $setup->to_file ($file_name)
       o   $file_name (localized file name)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.12

   $setup->to_key_file ($key_file, $group_name)
       o   $key_file (Glib::KeyFile)

       o   $group_name (string or undef)

       Since: gtk+ 2.12

   double = $setup->get_top_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_top_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

ENUMS AND FLAGS

   enum Gtk2::PageOrientation
       o   'portrait' / 'GTK_PAGE_ORIENTATION_PORTRAIT'

       o   'landscape' / 'GTK_PAGE_ORIENTATION_LANDSCAPE'

       o   'reverse-portrait' / 'GTK_PAGE_ORIENTATION_REVERSE_PORTRAIT'

       o   'reverse-landscape' / 'GTK_PAGE_ORIENTATION_REVERSE_LANDSCAPE'

   enum Gtk2::Unit
       o   'pixel' / 'GTK_UNIT_PIXEL'

       o   'points' / 'GTK_UNIT_POINTS'

       o   'inch' / 'GTK_UNIT_INCH'

       o   'mm' / 'GTK_UNIT_MM'

SEE ALSO

       Gtk2, Glib::Object

COPYRIGHT

       Copyright (C) 2003-2008 by the gtk2-perl team.

       This software is licensed under the LGPL.  See Gtk2 for a full notice.

perl v5.12.1							    2010-07-05							Gtk2::PageSetup(3)
All times are GMT -4. The time now is 01:32 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy