Get some lines from a file

[jaxx]

Hey all. I am pretty new to this. But I was hopeing i can get some help from here. Have searched the but haven't found the right thing for me.

I would need a program that will read a file, with a lot of lines, then get some lines starting from <!------ TÄNA KANAL 2-S ----------> then these lines will be printed out and when comes this line: <!------//TÄNA KANAL 2-S ----------> the program will end. It should also save the lines to another file.
I think its not possible with that <!------//TÄNA KANAL 2-S ----------> line because it has those two slashes, or am i wrong?

The file beginning...
...
...
<!------ TÄNA KANAL 2-S ---------->
...
Some lines
...
<!------//TÄNA KANAL 2-S ---------->
...
...
The end of the file
 

[numberwhun]

Hey all. I am pretty new to this. But I was hopeing i can get some help from here. Have searched the but haven't found the right thing for me.

I would need a program that will read a file, with a lot of lines, then get some lines starting from <!------ TÄNA KANAL 2-S ----------> then these lines will be printed out and when comes this line: <!------//TÄNA KANAL 2-S ----------> the program will end. It should also save the lines to another file.
I think its not possible with that <!------//TÄNA KANAL 2-S ----------> line because it has those two slashes, or am i wrong?

The file beginning...
...
...
<!------ TÄNA KANAL 2-S ---------->
...
Some lines
...
<!------//TÄNA KANAL 2-S ---------->
...
...
The end of the file
 

First, Welcome to TSDN and to Perl!

Second, Perl is the best language you could choose for doing anything with text since it is the one thing it was truly designed to handle.

Unfortunately, we do not provide a script writing service here so you are going to have to do some coding yourself. But, we will certainly help you when you get stuck. All you need to do is post to this forum the code that you are working on(enclosed in code tags of course), and we will assist you over the hump in your way.

Why not post what you have so far and we can help you. If you need some "learning Perl" resources, also let us know and we can give you a couple of good links.

Regards,

Jeff

[numberwhun]

Hey all. I am pretty new to this. But I was hopeing i can get some help from here. Have searched the but haven't found the right thing for me.

I would need a program that will read a file, with a lot of lines, then get some lines starting from <!------ TÄNA KANAL 2-S ----------> then these lines will be printed out and when comes this line: <!------//TÄNA KANAL 2-S ----------> the program will end. It should also save the lines to another file.
I think its not possible with that <!------//TÄNA KANAL 2-S ----------> line because it has those two slashes, or am i wrong?

The file beginning...
...
...
<!------ TÄNA KANAL 2-S ---------->
...
Some lines
...
<!------//TÄNA KANAL 2-S ---------->
...
...
The end of the file
 

Here are some links that you will find very handy in your quest to learn Perl.

1. Beginning Perl - An online book that is pretty good.

2. perldoc.perl.or g - This is where you will find a lot of references for the Perl language online.

3. perlfaq - These are the Perl FAQ's. You will want to read these as they cover some standard ways of doing things and answer a lot of beginner questions as well.

4. CPAN - CPAN is where all of the Perl modules are stored. You should search here first for a module to do what you want to do. You will often find links to modules given out here to help with a situation.

I hope these help.

Regards,

Jeff

[KevinADC]

I think its not possible with that <!------//TÄNA KANAL 2-S ----------> line because it has those two slashes, or am i wrong?

The two slashes will have no affect on searching through the file and finding what you want.

[jaxx]

Well Thank you all, who responded. Well i have a code but i have come to a conclusion that this will only take a line that starts and ends with those lines, but i would like to get the lines that are between those lines.

#!/usr/bin/perl
 
open (KANAL2, "/home/jaxx/MyScripts/IRC_Kava/KANAL2/index.r4w") or die "The file is missing or unreadable";
for $line (<KANAL2>) {
     if ($line =~ /^<!------ TÄNA KANAL 2-S ---------->.+<!------//TÄNA KANAL 2-S ---------->$/) {
        open (KANAL2_KAVA, "+>/home/jaxx/MyScripts/IRC_Kava/KANAL2/kava.text") or die "Can't create the file!";
         print $line;
        close KANAL2_KAVA
    }
}
close KANAL2;

Also what i know is that that ^ shows the start of the line and $ the end of a line. But those regex (i think it was called like that) is pretty much like chinese to me. I hope there aren't any mistakes in that program?
And Excuse my enligsh, im from Estonia and my english isin't very good.


EDIT: Oh and numberwhun, i have read that perl is the best language to be used as a text manipulating. Err i think sentence did not come out right, and i hope you understood it.
Also thanks for the different links, am reading the Beginning perl right now. A little late (23:02), have to go to school tomorrow but, yeah i can manage :D

[KevinADC]

One possible way to do what you are trying to do:

#!/usr/bin/perl
use strict;
use warnings;
my @lines;
open (KANAL2, "/home/jaxx/MyScripts/IRC_Kava/KANAL2/index.r4w") or die "The file is missing or unreadable: $!";
OUTTER: while (<KANAL2>) {
   if (/^\Q<!------ TÄNA KANAL 2-S ---------->\E/) {
      INNER: while (<KANAL2>) {
         if (/^\Q<!------\/\/TÄNA KANAL 2-S ---------->\E$/) {
            open (KANAL2_KAVA, ">/home/jaxx/MyScripts/IRC_Kava/KANAL2/kava.text") or die "Can't create the file: $!";
            print  KANAL2_KAVA @lines;
            close KANAL2_KAVA;
            next OUTTER;
         }
         push @lines,$_;
      }
   }
}
close KANAL2;

I find this approach more straight forward than what you are trying to do but you can use one regexp to grab the lines between the patterns if you wanted to. If there is only one set of lines between the patterns you can change:

next OUTTER;

to:

last OUTTER;

and the loop will end at that point.

[jaxx]

Hmm, I found out that there are some whitespaces in front of those patterns, and then i should put an \s+ in front or after the \Q regexs?

EDIT: actualy there was a tab and then some whitespaces, i put the tab and whitespaces in the code, and it worked, and very good, than you for your help anyone. If i get into trouble again, with my code then i am sure i will come here ^^. But actualy yeah, if there are some tabs and whitespaces how would i have to use those regular expressions?

[KevinADC]

\s+ will find tabs so you can just use \s+:

if (/^\s+\Q<!------ TÄNA KANAL 2-S ---------->\E/) {

[jaxx]

Oh before the \Q ? :D dam, i jsut thought that affter that \Q, i guess that why it didn't work for the first time i tried it. Ok tnx, another thing i learned.

[KevinADC]

Oh before the \Q ? :D dam, i jsut thought that affter that \Q, i guess that why it didn't work for the first time i tried it. Ok tnx, another thing i learned.

Look up what \Q means and you will understand.