[Valgrind-developers] valgrind-www r99 - trunk/gallery/survey_current

[<sv...@va...>]

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
   + *