So senden Sie eine Python-Variable an einen Perl-Subprozess

Question

Ich versuche, eine Perl-Regex zu verwenden, um etwas komplizierten Abgleich durchzuführen. In der Schale, sieht es so aus:

cut -f6 file.txt | perl -ne 'chomp; $col=$_; $clipped = 0; foreach($col =~ m/(\d+)S/g){ $clipped +=$_;} print $col,"\t",$clipped,"\n";' 

Und das funktioniert, aber die nachgelagerten Teile dieses Skript zu lange einnehmen, so möchte ich dies in Python tun, statt.

Aus Gründen der Übersichtlichkeit findet die Perl-Zeile die Nummer vor dem Zeichen "S" in der sechsten Spalte der Datei. Es kann mehr als ein "S" geben, also findet es eine Ziffer vor jedem "S" und speichert diese, dann addiert $ clipped diese Ziffern. Wenn die Spalte wie 12S1I100M37S aussieht, würde $ clipped insgesamt 49 ergeben, für die 12S an der Front und die 37S am Ende. Es ignoriert alle anderen Ziffern.

Zurück zu Python: mit Split() [5], kann ich die sechste Spalte zu einer Variablen, aber ich weiß nicht, wie das an subprocess.call übergeben ('perl -ne etc').

Kann jemand vorschlagen, wie ich dies tun kann oder wie ich das Python Re-Modul für die gleiche Art der Übereinstimmung verwenden könnte?

Answer 1

Es gibt wahrscheinlich eine Möglichkeit kompaktere Art und Weise, dies in Python zu schreiben. Dies ist nur mein Versuch, dich sehr wörtlich an deiner Problemdefinition/Grenze zu nehmen. Wie auch immer, Punkt sein, mit dem re Modul ist sicherlich eine einfache Option, wenn Sie bei Python bleiben wollen.

import re 

def sum_str_digits(my_string): 
    split_string = re.split(r'(\d+)', my_string) 
    sums = 0 
    for index, string_piece in enumerate(split_string): 
     if string_piece == 'S': 
      sums += int(split_string[index - 1]) 
    return sums 

# For Python 2.x 
print sum_str_digits(my_string='12S1I100M37S') 

# Python 3.x 
print(sum_str_digits(my_string='12S1I100M37S'))