https://wiki2.sitebuilt.net/index.php?action=history&feed=atom&title=Txt2flp.pl
Txt2flp.pl - Revision history
2026-05-06T16:45:20Z
Revision history for this page on the wiki
MediaWiki 1.37.0
https://wiki2.sitebuilt.net/index.php?title=Txt2flp.pl&diff=2094&oldid=prev
Tim at 21:36, 23 November 2008
2008-11-23T21:36:53Z
<p></p>
<p><b>New page</b></p><div><br />
<pre><br />
#!/usr/bin/perl -w<br />
#from tests dir - usage: perl txt2flp.pl rootname term#<br />
#takes questions in edit page and turns them into csv file for import into flipchart <br />
#get command line args for (root of)filename and dir <br />
$di = "1enl, 2ism, 3war, 4bip";<br />
$d = $ARGV[1];<br />
$di =~ m/($d\w*)/; #regex for finding the word that starts with what's in $d<br />
$dir = $1;<br />
$n = $ARGV[0];<br />
#$n =~ m/(.*)\./; #regex to get body of filename <br />
$nam = $n;<br />
$inq = $dir . "/t/" . $nam . ".txt";<br />
$ina = $dir . "/t/" . $nam . ".ans";<br />
$ouc = ">". $dir . "/c/" . $nam . ".csv";<br />
open (INA, "$ina") || die "no stinking anwers";<br />
open (IN, "$inq") || die "what questions?";<br />
open (GMA, "$ouc") ;<br />
@ca = <INA> ; <br />
$a = ""; <br />
$qo = "";<br />
$c = 0;<br />
$cnt = -1;<br />
while (<IN>) {<br />
s/"/'/g; #substitutes single quotez for doubles<br />
if($_ =~ m/##(.*)/) { #regex match for ## plus everything<br />
$a = $a . ", \"" . $1 . "\"";<br />
$c++ ;<br />
} else {<br />
chomp;<br />
$qn = substr($_,1);<br />
if (length $qo > 0) {<br />
$cor = $ca[$cnt];<br />
chomp($cor);<br />
$ou = "\"" . $qo . "\",". $c . "," . $cor . $a . "," x (7-$c) . " \n" ;<br />
print $ou;<br />
print GMA $ou;<br />
$cnt++;<br />
}<br />
$qo = $qn;<br />
$a = "";<br />
$c = 0;<br />
}<br />
}<br />
$cor = $ca[$cnt];<br />
chomp($cor);<br />
$ou = "\"" . $qn . "\",". $c . "," . $cor .$a . "," x (7-$c) . " \n" ;<br />
print $ou;<br />
print GMA $ou;<br />
close IN;<br />
close GMA;<br />
close INA;<br />
</pre></div>
Tim