But not able to get it.

Hmm, what have you tried to debug the problem?

I see code from Load file into a scalar without File::Slurp but none from Basic debugging checklist

Your code is very short and straight forward ( thus answerable without sample input ... How do I post a question effectively?),

but you already got the answer in: PERL regex modifiers for m//, Regex: Extracting the case insensitive string and printing on the output, how to read a particular paragraph from middle of a file line by line and enter each string in the line as an element of an array

What was the problem with copy/pasting those solutions? Why can't you use capturing parentheses or post match variable, or split ...?

See

• perlintro
• http://perldoc.perl.org/perlintro.html#Regular-expressions
• http://perldoc.perl.org/perlintro.html#Parentheses-for-capturing
• perlretut
• http://perldoc.perl.org/perlretut.html#Extracting-matches
• http://learn.perl.org/books/beginning-perl/ chapter 5 Regular Expressions

#! /usr/bin/perl -w
use strict;

open(FILE,"< file1.txt");
my @lines=<FILE>;
close(FILE);
my $found=0;
foreach my $line(@lines)
{
 if($found)
 {
  print "$line";
 }

 if($line=~/start/)
 {
  $found=1;
  print "$&$'";
 }
}
[download]

startdexdbnjcrk
this when be shown
this will be shown
this will also be shown
[download]

anjwdwus
svwbsdncelf,c;rf
wscgwhjdke ff ed iekd ewd
asvdjcn startdexdbnjcrk
this when be shown
this will be shown
this will also be shown
[download]

Hi Ansh, Thanks for that code. How could I modify the code if I want to print

startdexdbnjcrk
this when be shown
[download]

from the sample text you have chosen. Thanks in advance.

if you meant that you want to print the line with the regex and the next line to it
then simply add last; in the first if section


if($found)
 {
  print "$line";
  last;
 }
[download]

this will get you the output


startdexdbnjcrk
this when be shown
[download]




UPDATE:and if you want to print more lines then youll be needing a counter and check each time with "if" weather the desired number of lines have been printed or not. if yes then exit.


there be many shortcuts but i guess this one is the simplest for a newbie like me to understand

rockstar99:

Try changing this part:

        if($filecontents =~ /\*\sdisks/){
        my @matchsect = /\*\sdisks/;
        print "@matchsect\n\n";
}
[download]

to something like this:

        if ($filecontents =~ /\*\sdisks/) {
             # delete everything up to the first occurrence
             # of "* disks"
             $filecontents =~ s/^.*?\*\sdisks//;
             print "$filecontents\n\n";
        }
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.

use strict;
use warnings;

{
local $/ = undef;    ### Set line terminator to nothing
open(HANDLE, 'test.txt') || die;
$_ = <HANDLE>;       ### Slurp entire file
}

### Match everything at or following first instance of pattern
if (m/(my pattern.*)/s) {
    print $1;
}
else {
    print "No match found.\n";
}
[download]

#!/usr/bin/perl -w
use strict;

my $file="show_configuration.out";
open (IN, '<', $file) or die "Can't open $file: $!\n";

my $patternSeen =0;

while (<IN>)
{
   $patternSeen =1 if /\*\sdisks/; #  '* disks' has been seen
   
   next unless $patternSeen;
   
   print;
}
[download]