03 July 2010

Inline in Perl

check how to do Inline in Perl.
 

1 #!/usr/bin/perl -w
2 #@ deepak
3 use strict;
4 use Inline::Files;
6 while(<FIRST>)
7 {
8 print $_;
9 }


10
11 while (<SECOND>)
12 {
13 print $_;
14 }
15
16 while (<THIRD>)
17 {
18 print $_;
19 }
20
21 __FIRST__
22 This is First.
23
24 __SECOND__
25 This is Second
26
27 __THIRD__
28 This is third

No comments: