Leser: 31
perl -p -i.bak -e "~s|[Calle[-\s]|C\/|" [Dateiname]
perl -p -i.bak -e "~s|[Calle[-\s]|C\/|" [Datei]
Quote<?xml version='1.0' encoding='UTF-8'?>
<osm version='0.6' generator='JOSM'>
<bounds minlat='36.6915835180063' minlon='-4.04461216611417' maxlat='36.8905991106566' maxlon='-3.68761173107937' origin='OpenStreetMap server' />
<node id='298468275' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7378345' lon='-3.9883865' />
<node id='298468274' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7382273' lon='-3.9898227' />
<node id='30635660' timestamp='2007-06-19T19:52:27Z' uid='4623' user='Quico' visible='true' version='1' lat='36.736462' lon='-3.990298'>
<tag k='source' v='PGS' />
</node>
...
Quote<?xmC/ version='1.0' encoding='UTF-8'?>
<osmC/version='0.6' generator='JOSM'>
C/ <bounds minlat='36.6915835180063' minlon='-4.04461216611417' maxlat='36.8905991106566' maxlon='-3.68761173107937' origin='OpenStreetMap server' />
C/ <node id='298468275' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7378345' lon='-3.9883865' />
C/ <node id='298468274' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7382273' lon='-3.9898227' />
C/ <node id='30635660' timestamp='2007-06-19T19:52:27Z' uid='4623' user='Quico' visible='true' version='1' lat='36.736462' lon='-3.990298'>
C/ <tag k='source' v='PGS' />
C/ </node>
...
1 2 3 4 5 6 7 8
#!/usr/bin/perl use strict; use warnings; use YAPE::Regex::Explain; my $re = '[Calle[-\s]/'; print YAPE::Regex::Explain->new($re)->explain;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
The regular expression:
(?-imsx:[Calle[-\s]/)
matches as follows:
NODE EXPLANATION
----------------------------------------------------------------------
(?-imsx: group, but do not capture (case-sensitive)
(with ^ and $ matching normally) (with . not
matching \n) (matching whitespace and #
normally):
----------------------------------------------------------------------
[Calle[-\s] any character of: 'C', 'a', 'l', 'l', 'e',
'[''-', whitespace (\n, \r, \t, \f, and "
")
----------------------------------------------------------------------
/ '/'
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------
2009-09-22T06:29:46 jan999Kann mir einer sagen warum das noch passiert und wie es richtig ist ???
2009-09-22T06:29:46 jan999Ich habe vielleicht vergessen zu erwähnen das ich den Ausdruck aus einem win-Batch heraus aufrufe und daher use warnings; use strict; nicht zur Anwendung kommen.
2009-09-22T08:20:17 pq2009-09-22T06:29:46 jan999Ich habe vielleicht vergessen zu erwähnen das ich den Ausdruck aus einem win-Batch heraus aufrufe und daher use warnings; use strict; nicht zur Anwendung kommen.
hm, man kann aus windows-batchfiles also kein "use strict; use warnings;" in perlskripte schreiben und auch kein -w übergeben? aber laut deinem beispiel kannst du fröhlich -p usw. übergeben. das ist ja echt merkwürdig, dass ausgerechnet -w nicht funktioniert.
windows war mir schon immer suspekt.