Changeset 3418 for trunk/gsdl/perllib

Timestamp:

2002-09-10T19:15:46+12:00 (22 years ago)

Author:

jrm21

Message:

Allow fields to stretch over multiple lines if enclosed in double quotes.
Eg

collectionmeta collectionextra "

foo
bar

"

File:

• trunk/gsdl/perllib/cfgread.pm (modified) (1 diff)

trunk/gsdl/perllib/cfgread.pm

@@ -39 +39 @@
     $line =~ s/\cM|\cJ//g; # remove end-of-line characters
     $line =~ s/^\s+//;     # remove initial white space
+    # Merge with following line if a quoted phrase is left un-closed.
+    if ($line =~ m/[^\\]\"/) {
+        while ($line !~ m/\"(.*?[^\\])?\"/) {
+        my $nextline = <$handle>;
+        if (defined($nextline)) {
+            $nextline =~ s/\r?\n//; # remove end-of-line
+            $line .= " " . $nextline;
+        } else {
+            return undef; # parse error?
+        }
+        }
+    }
     $linecontinues = $line =~ s/\\$//;
+
     while ($line =~ s/\s*(\"[^\"]*\"|\'[^\']*\'|\S+)\s*//) {
         if (defined $1) {