A simple script to show a table of contents like view of a latex file. I could make a couple of assumptions about the input based on my setup. My first attempt which is probably somewhere on my blog looked like this:
Perl:
-
if($#ARGV > 0) { $in_file_name = shift; }
-
else { $in_file_name = “thesis.tex”; }
-
-
sub read_file
-
{
-
-
-
-
-
while(<IN>) {
-
if(/^\\chapter.?
{(.+?
)}/
) {print “——————–\n$1\n“;
}
-
elsif(/^\\section.?
{(.+?
)}/
) {print ” . . $1\n“;
}
-
elsif(/^\\subsection.?
{(.+?
)}/
) {print ” . . . . $1\n“;
}
-
elsif(/^\\subsubsection.?
{(.+?
)}/
) {print ” . . . . . . $1\n“;
}
-
elsif(/^\\paragraph.?
{(.+?
)}/
) {print ” . . . . . . . . $1\n“;
}
-
elsif(/^\\input{(.+?)}/) {read_file($1);}
-
}
-
-
-
}
-
-
read_file($in_file_name);
A classic recursive solution using a function. I had a quick play today and produced this:
Perl:
-
#!perl -n
-
-
/^\\chapter.?
{(.+?
)}/
and print “-” x20 .
“\n$1\n“ or
-
/^\\section.?
{(.+?
)}/
and print ” .” x2 .
” $1\n“ or
-
/^\\subsection.?
{(.+?
)}/
and print ” .” x4 .
” $1\n“ or
-
/^\\subsubsection.?
{(.+?
)}/
and print ” .” x6 .
” $1\n“ or
-
/^\\paragraph.?
{(.+?
)}/
and print ” .” x8 .
” $1\n“ or
-
/^\\input
{(.+?
)}/
and system “perl list_sections2.pl $1″;
Which is a lot more compact. It’s almost inefficient, but this doesn’t really matter for this problem (or at least the input I have).
Which one feels more Perl-y?
Or should I just give up on Perl and go back to my Pythonic ways?
…more
January 12th, 2008 at 6:48 pm
View Muscle gays Sample.
January 28th, 2008 at 10:52 am
blog.bestmallcheap.net Information and Sales.Find the good Price. Good, Free deal!.
erotic-stories.freevideoland.com depends entirely on , includes , , and .
Buy the underage-orgy.obrokblog.com online.Click here for more.
Search results fucking-machines.homevideobank.com:Actual hot deals & Photos.
February 26th, 2008 at 12:01 pm
Genuine adh-health.cyberjetmall.com/ erotic Review site - movie/Vids galleries and sample scene descriptions of the hottest hot sites.