Changeset 11447
- Timestamp:
- 2006-03-21T15:08:25+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/gti.pl
r11366 r11447 1194 1194 if ($line =~ /^\s*<Text id=\"(.*?)\">/) { 1195 1195 my $chunk_key = $1; 1196 $line =~ s/\s* ([^\\]\#[^\}]+)?$//; # Remove any comments andnasty whitespace1196 $line =~ s/\s*$//; # Remove any nasty whitespace 1197 1197 1198 1198 # While there is still text of the string to go... … … 1204 1204 } 1205 1205 $line = $file_lines[$i]; 1206 $line =~ s/\s* ([^\\]\#[^\}]+)?$//; # Remove any comments andnasty whitespace1206 $line =~ s/\s*$//; # Remove any nasty whitespace 1207 1207 } 1208 1208 … … 1221 1221 1222 1222 # Simple: just remove the Text tags 1223 $chunk_text =~ s/^\s*<Text .*id=\"(.*?)\".*?>(\s*)//;1223 $chunk_text =~ s/^\s*<Text id=\"(.*?)\">(\s*)//; 1224 1224 $chunk_text =~ s/<\/Text>$//; 1225 1225
Note:
See TracChangeset
for help on using the changeset viewer.