|
From: <sv...@va...> - 2005-03-26 18:08:54
|
Author: njn
Date: 2005-03-26 18:08:49 +0000 (Sat, 26 Mar 2005)
New Revision: 99
Added:
trunk/gallery/survey_current/chunk-surveys
Log:
A script for chunking the results of surveys, to make analysing them easi=
er.
Added: trunk/gallery/survey_current/chunk-surveys
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/gallery/survey_current/chunk-surveys 2005-03-26 17:37:01 UTC (r=
ev 98)
+++ trunk/gallery/survey_current/chunk-surveys 2005-03-26 18:08:49 UTC (r=
ev 99)
@@ -0,0 +1,40 @@
+#! /usr/bin/perl
+#
+# Script for chunking every response to each individual survey question =
into
+# a single file.
+#
+# When passed in multiple survey responses, one per file, it produces a
+# number of files: q1, q2, q3, etc, which hold all the answers to quest=
ion
+# 1, 2, 3, etc. Note that it *appends* to these files; you may want to
+# delete any existing ones hanging around before using the script.
+#
+# Usage: chunk-surveys [survey-file-names]
+
+use warnings;
+use strict;
+
+my $usage =3D "Usage: chunk-surveys <input survey files>\n";
+
+(@ARGV > 0) || die $usage;
+
+my $input_file =3D $ARGV[0];
+
+foreach my $f (@ARGV) {
+ open(INPUTFILE, "< $f") || die "File $f not openable\n";
+ print("chunking file $f...\n");
+ my $currQ =3D -1;
+ while (my $line =3D <INPUTFILE>) {
+ if ($line =3D~ /^q(\d+)/) {
+ # Onto next question...
+ ($currQ + 1 =3D=3D $1) || die "next question ($1) not in ord=
er...";
+ $currQ =3D $1;
+ system("echo '-- $f ----------------------' >> q$currQ");
+ } else {
+ system("echo -n \"$line\" >> q$currQ");
+ }
+ };
+
+}
+
+
+
Property changes on: trunk/gallery/survey_current/chunk-surveys
___________________________________________________________________
Name: svn:executable
+ *
|