Sonderzeichen im Array Element ignorieren (Allgemeines zu Perl)

[thread]19375[/thread]

Sonderzeichen im Array Element ignorieren

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+7 replies

amos

2014-11-10 11:25

User since
2014-08-07
9 Artikel
BenutzerIn
[default_avatar]

Hallo Experten,
in meinen Array Elemeten befinden sich Sonderzeichen.
Dadurch funktioniert leider die grep Funktion nicht richtig.
Gibt es eine elegantere Möglichkeit als mein: s/\@|\$\{|\}|$|$|\*//g;
im Skript?

Code (perl): (dl )

open(R,$s_file);
while(<R>) {
  if(/$search/) {
     chomp;
     s/\@|\$\{|\}|\(|\)|\*//g;
     my $match_line = $_;
     $cnt = grep(/$match_line/, @target);
     $i++; print "$i $cnt $match_line\n";
     $cnt=0;
  }
}

amos

2014-11-10 12:44

User since
2014-08-07
9 Artikel
BenutzerIn
[default_avatar]

Anbei noch als Beispiel 59 Array Elemente.
Mit dem grep suche ich immer die gesamte Zeile, gefunden werden aber nicht 59 Elemente sondern nur die 36 Zeilen ohne Sonderzeichen:

Code: (dl )

="IF(@IS_POSITION()) THEN (${o:GenericInstrField(field='THEO/Domestic Rho')} * ${o:PositionWIFinal} * ${o:InstrFX} * ${o:GenericInstrField(field='FEED_2_CALC_PU_MULTIPLIER')}) ELSE @SUM_OF_CHILDREN(THIS)" parameters="currency" parameters_exclude="hidden" />
                <output id="o:THEOForeignRhoWI"  name="WI: THEOForeignRho" type="value" src="CustomEquation"      whatif="true"  equation="IF(@IS_POSITION()) THEN (${o:GenericInstrField(field='THEO/Foreign Rho')} * ${o:PositionWIFinal} * ${o:InstrFX} * ${o:GenericInstrField(field='FEED_2_CALC_PU_MULTIPLIER')}) ELSE @SUM_OF_CHILDREN(THIS)" parameters="currency" parameters_exclude="hidden" />
                <output id="o:THEOGammaWI" name="WI: THEOGamma" type="value" src="CustomEquation"      whatif="true"     equation="IF(@IS_POSITION()) THEN (${o:GenericInstrField(field='THEO/Gamma')} * ${o:PositionWIFinal} * ${o:InstrFX} * ${o:GenericInstrField(field='FEED_2_CALC_PU_MULTIPLIER')}) ELSE @SUM_OF_CHILDREN(THIS)" parameters="currency" parameters_exclude="hidden" />
                <output id="o:THEOVegaWI" name="WI: THEOVega"   type="value" src="CustomEquation"      whatif="true"     equation="IF(@IS_POSITION()) THEN (${o:GenericInstrField(field='THEO/Vega')} * ${o:PositionWIFinal} * ${o:InstrFX} * ${o:GenericInstrField(field='FEED_2_CALC_PU_MULTIPLIER')}) ELSE @SUM_OF_CHILDREN(THIS)" parameters="currency" parameters_exclude="hidden" />
                <output id="o:THEOThetaWI" name="WI: THEOTheta" type="value" src="CustomEquation"      whatif="true"     equation="IF(@IS_POSITION()) THEN (${o:GenericInstrField(field='THEO/Theta')} * ${o:PositionWIFinal} * ${o:InstrFX} * ${o:GenericInstrField(field='FEED_2_CALC_PU_MULTIPLIER')}) ELSE @SUM_OF_CHILDREN(THIS)" parameters="currency" parameters_exclude="hidden" />
        <output id="o:THEODurRW" name="Eff Dur (Pos) RW" type="ratio" src="CustomEquation" equation="IF(@IS_POSITION()) THEN (IF (@IS_ZERO(${o:Position}) || @IS_NAN(${o:GenericInstrField(field='THEO/Effective Duration')})) THEN 0 ELSE ${o:GenericInstrField(field='THEO/Effective Duration')}) ELSE @WEIGHTED_SUM_OF_CHILDREN(THIS, ${o:ExposurePos})" parameters_exclude="hidden"/>
        <output id="o:THEOConvRW" name="Eff Cnvx (Pos) RW" type="ratio" src="CustomEquation" equation="IF(@IS_POSITION()) THEN (IF (@IS_ZERO(${o:Position}) || @IS_NAN(${o:GenericInstrField(field='THEO/Effective Convexity')})) THEN 0 ELSE ${o:GenericInstrField(field='THEO/Effective Convexity')}) ELSE @WEIGHTED_SUM_OF_CHILDREN(THIS, ${o:ExposurePos})" parameters_exclude="hidden"/>
        <output id="o:MyTheoEffectiveDur"    name="TheoEffectiveDur"  type="value"    src="CustomEquation"            equation="${o:GenericInstrField(field='THEO/Effective Duration')}"   parameters="currency" parameters_exclude="hidden"/>
        <output id="o:ExposurePosDur"    name="Exposure Eff Dur (Pos)"  type="value"    src="CustomEquation"            equation="IF(@IS_POSITION()) THEN (IF((${o:AssetType})=='MBS/ABS') THEN ${o:Value} ELSE (IF((${o:AssetType})=='Inflation Linked') THEN ${o:Value} ELSE IF(@IS_ZERO(${o:GenericInstrField(field='THEO/Effective Duration')}))THEN 0 ELSE (${o:THEOExposurePos} * ${o:Position} * ${o:InstrFX}/ ${o:PosUnitCalcToDisplayMultiplier}))) ELSE @SUM_OF_CHILDREN(THIS)"               parameters="currency" parameters_exclude="hidden"/>
        <output id="o:THEODur2"         name="Eff Dur (Pos) 2"              type="ratio" src="CustomEquation"    equation="IF(@IS_POSITION()) THEN (IF (@IS_ZERO(${o:Position}) || @IS_NAN(${o:GenericInstrField(field='THEO/Effective Duration')})) THEN 0 ELSE ${o:GenericInstrField(field='THEO/Effective Duration')}) ELSE @WEIGHTED_SUM_OF_CHILDREN(THIS, ${o:ExposurePosDur})"  parameters_exclude="hidden" />
        <output id="o:MyTheoEffectiveCnvx"    name="TheoEffectiveCnvx"  type="value"    src="CustomEquation"            equation="${o:GenericInstrField(field='THEO/Effective Convexity')}"   parameters="currency" parameters_exclude="hidden"/>
        <output id="o:ExposurePosCnvx"    name="Exposure Eff Cnvx (Pos)"  type="value"    src="CustomEquation"            equation="IF(@IS_POSITION()) THEN (IF((${o:AssetType})=='MBS/ABS') THEN ${o:Value} ELSE (IF((${o:AssetType})=='Inflation Linked') THEN ${o:Value} ELSE IF(@IS_ZERO(${o:GenericInstrField(field='THEO/Effective Convexity')}))THEN 0 ELSE (${o:THEOExposurePos} * ${o:Position} * ${o:InstrFX}/ ${o:PosUnitCalcToDisplayMultiplier}))) ELSE @SUM_OF_CHILDREN(THIS)"               parameters="currency" parameters_exclude="hidden"/>
        <output id="o:THEOCnvx2"         name="Eff Cnvx (Pos) 2"              type="ratio" src="CustomEquation"    equation="IF(@IS_POSITION()) THEN (IF (@IS_ZERO(${o:Position}) || @IS_NAN(${o:GenericInstrField(field='THEO/Effective Convexity')})) THEN 0 ELSE ${o:GenericInstrField(field='THEO/Effective Convexity')}) ELSE @WEIGHTED_SUM_OF_CHILDREN(THIS, ${o:ExposurePosCnvx})"  parameters_exclude="hidden" />
            <output id="o:az_callFlag" name="Call Flag" type="text" src="InstrField" field="CallOption" />
            <output id="o:az_forwardYield" name="Forward Yield" type="value" src="InstrField" field="ForwardYield" />
            <output id="o:az_term" name="Term" type="text" src="InstrField" field="Term" />
            <output id="o:az_tenor" name="Tenor" type="value" src="InstrField" field="Tenor" />
            <output id="o:az_underlyingValue" name="Underlying Value" type="value" src="InstrField" field="UnderlyingValue" />
            <output id="o:az_conversionFactor" name="Conversion Factor" type="value" src="InstrField" field="ConversionFactor" />
            <output id="o:az_AIMFISectorCode" name="AIM FI Sector Code" type="text" src="InstrField" field="USER_DEFINED_12"/>
            <output id="o:az_IDSInvestmentTypeCode" name="IDS Investment Type Code" type="text" src="InstrField" field="USER_DEFINED_13"/>
        <output id="o:az_callableflag" name="Callable Flag" type="text" src="InstrField" field="USER_DEFINED_14"/>
[\code]

+2 replies
clms

2014-11-10 13:00

User since
2010-08-29
373 Artikel
BenutzerIn

Wie praktisch immer in Perl gibt es mehrere Möglichkeiten:

Die geringste Änderung gegenüber Deinem Code: die Zeichen zu einer Zeichengruppe zusammen fassen: s/[\@\${}()*]//g;

Wenn es sich immer nur um einzelne Zeichen handelt, die ausgefiltert werden sollen ist tr/// noch kompakter und schneller:
tr/@${}()*//d;

Und bist du Dir wirklich sicher, dass Du alle Zeichen, die Du entfernen willst, in Deiner Liste hast? Oft ist eine Positiv-Liste deutlich robuster: tr/A-Za-z0-9_-//cd; entfernt z.B. alle Zeichen außer ASCII-Buhstaben, Ziffern, - und _; das 'c'-Argument "invertiert" die Suchliste im ersten Teil des transpose-Befehls, und 'd' sorgt dafür, dass alle gematchten Zeichen, für die kein Replacment angegeben ist, entfernt werden.
- amos
  
  2014-11-10 13:19
  
  User since
  2014-08-07
  9 Artikel
  BenutzerIn
  
  Hallo clms,
  Vielen Dank für Deinen wertvollen Hinweis!
  Am schönsten für mich wäre es wenn ein grep den String '@${}()*' finden würde, sofern er sich im Array befindet:
  
  grep(/'@${}()*'/,@array);
  
  Wäre das möglich?
+3 replies
Raubtier

2014-11-10 13:18

User since
2012-05-04
1054 Artikel
BenutzerIn

Willst du überhaupt mit regulären Ausdrücken suchen? Wenn nein, einfach index verwenden. Oder ansonsten quotemeta.
- Muffi
  
  2014-11-10 13:21
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Oder alternativ
  
  Code (perl): (dl )
  
  /\Q$match_line\E/
  
  1 + 1 = 10
- amos
  
  2014-11-10 13:22
  
  User since
  2014-08-07
  9 Artikel
  BenutzerIn
  
  Hi Raubtier,
  super, Du hast Recht, ich brauche eigentlich gar keinen regulären Ausdruck, für das was ich machen möchte.
  Vielen Dank!

View all threads created 2014-11-10 11:25.