Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl regex using /START/../END/
Top Forums Shell Programming and Scripting Perl regex using /START/../END/ Post 302486686 by def123 on Monday 10th of January 2011 01:59:53 AM
Old 01-10-2011
This will save all the lines which starts with START and ends with END and STOP to another file.

Code:
#!/usr/bin/perl
$file ="test.txt";
open(INFILE,$file);
$i=0;
while (<INFILE>){
push (@arr1,split(/\n/,$_));
}
for ($i=0;$i<$#arr1;$i++) {
  $myline = $arr1[$i];
   $j=$i;
   if ($myline =~/START/i) {
     until(($myline =~/END/) || ($myline =~/STOP/)) {
      $myline = $arr1[$j];
      push(@arr,$myline);
      $j=$j+1;
    }
}
}
close INFILE;
$file1="log.txt";
open(OUTFILE,">",$file1);
foreach $val(@arr) {
  print OUTFILE $val."\n";
}
close OUTFILE;

Last edited by pludi; 01-10-2011 at 03:57 AM..
 

7 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Complete dump from start to the end

Hi all... I was accidentally wipe off my iphone and lost all the data in it:(. So I tried to use dd to create an image from iphone and ssh to the Mac by using: dd if=/dev/disk | ssh user@MacIP of='image.img' Then I mount this image on Mac/Windows and run recovery software because most of the... (1 Reply)
Discussion started by: seraphc
1 Replies

2. Shell Programming and Scripting

Converting perl regex to sed regex

I am having trouble parsing rpm filenames in a shell script.. I found a snippet of perl code that will perform the task but I really don't have time to rewrite the entire script in perl. I cannot for the life of me convert this code into something sed-friendly: if ($rpm =~ /(*)-(*)-(*)\.(.*)/)... (1 Reply)
Discussion started by: suntzu
1 Replies

3. Shell Programming and Scripting

Need to capture dates between start date and end date Using perl.

Hi All, Want to get all dates and Julian week number for that date between the start date and end date. How can I achive this using perl? (To achive above functionality, I was connecting to the database from DB server. Need to execute the same script in application server, since databse... (6 Replies)
Discussion started by: Nagaraja Akkiva
6 Replies

4. Shell Programming and Scripting

Extract week start,end date from given date in PERL

Hi All, what i want to do in perl is i should give the date at run time .Suppose date given is 23/12/2011(mm/dd/yyyy) the perl script shold find week start date, week end date, previous week start date,end date,next week start date, end date. In this case week start date will be-:12/19/2011... (2 Replies)
Discussion started by: parthmittal2007
2 Replies

5. Shell Programming and Scripting

Remove lines between the start string and end string including start and end string Python

Hi, I am trying to remove lines once a string is found till another string is found including the start string and end string. I want to basically grab all the lines starting with color (closing bracket). PS: The line after the closing bracket for color could be anything (currently 'more').... (1 Reply)
Discussion started by: Dabheeruz
1 Replies

6. Shell Programming and Scripting

Perl, RegEx - Help me to understand the regex!

I am not a big expert in regex and have just little understanding of that language. Could you help me to understand the regular Perl expression: ^(?!if\b|else\b|while\b|)(?:+?\s+){1,6}(+\s*)\(*\) *?(?:^*;?+){0,10}\{ ------ This is regex to select functions from a C/C++ source and defined in... (2 Replies)
Discussion started by: alex_5161
2 Replies

7. UNIX for Beginners Questions & Answers

Splitting week start date and end date based on custom period start dates

Below are my custom period start and end dates based on a calender, these dates are placed in a file, for each period i need to split into three weeks for each period row, example is given below. Could you please help out to achieve solution through shell script.. File content: ... (2 Replies)
Discussion started by: nani2019
2 Replies

LEARN ABOUT REDHAT

adsl-start

ADSL-START(8)						      System Manager's Manual						     ADSL-START(8)

NAME

       adsl-start - Shell script to bring up a PPPoE link

SYNOPSIS

       adsl-start [config_file]

       adsl-start interface user [config_file]

DESCRIPTION

       adsl-start  is  a  shell  script  which	starts	the  Roaring  Penguin  user-space PPPoE client.  If you omit config_file, the default file
       /etc/sysconfig/network-scripts/ifcfg-ppp0 is used.  If you supply interface and user, then they override the Ethernet interface	and  user-
       name settings in the configuration file.

AUTHOR

       adsl-start was written by David F. Skoll <dfs@roaringpenguin.com>.

       The pppoe home page is http://www.roaringpenguin.com/pppoe/.

SEE ALSO

       pppoe(8),  adsl-stop(8),  adsl-connect(8),  pppd(8),  pppoe.conf(5),  adsl-setup(8), adsl-status(8), pppoe-sniff(8), pppoe-relay(8), pppoe-
       server(8)

4th Berkeley Distribution					 21 February 2000						     ADSL-START(8)
All times are GMT -4. The time now is 04:57 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy