Dize sonuna iki karakterden oluşan bir dizeye iki nokta (:) yerleştirmenin bir yolunu bulmaya çalışıyorum. $ Meetdays aitPerl kullanarak sondan iki karakterli bir dizeye iki noktaya nasıl iki noktaya yerleştiririm?
Örnekler:
1200 = => 09:00
1340> 12:00
900 => 13:40
emin değil bu normal bir ifade ya da sadece başka bir işlevi olmalıdır eğer ben Farkında değilim.
s/(?=..$)/:/
Roe'in $& önerisini kullanmayın. perldoc perlvar:
Bu değişkenin bir programda herhangi bir yerinde kullanılması, tüm düzenli ifade eşleşmelerinde önemli bir performans cezası verir. Bkz. "BUGS".
Bu deneyebilirsiniz:
s/..$/:$&/
o dizenin sonunda iki karakter ile eşleşir ve iki nokta üst üste ile değiştirir ve eşleşen dize (yani iki karakter). Perl eşdeğer
DÜZENLEME
Sabit sed-backref.
ok sayesinde kullanabilir miyim ... evet ben değil mi yani orada o – CheeseConQueso
güzel çalışma değildi söylemek gidiyordu' En iyileştirilmiş ifade, ama anlamak ve hile yapar, o yardımcı oldu nasıl (yararsızdır)? SO yolunu daha iyi cevaplamıyor mu? – CheeseConQueso
sakınca .. o – falstro
sed en & Perl eşdeğer $ &, bu yüzden olmalı:
$s = s /..$/:$&/s;
Roe cevabı "çalışır", ama onun yerine inobvious regex.
Daha
s/(^.*)(..$)/$1:$2/
Çünkü ben sadece aşk backrefs için gider.
Yaptıklarınız için aşırı, ama benim için daha çok anlam ifade ediyor.
ilk yakalama biraz israf, neden sadece s /(..$)/:$ 1 /? – user55400
İlk kısım gerçekten gereksiz olsa da, çok daha okunabilir. (En azından regex ayrıştırmak için) –
+ 1 blixtor. @Kent: Bu durumda pratik bir fark yaratmasa da, orijinal cevabınız daha yavaş olur, çünkü Perl'in sonuncu ".." ile eşleşmesi için iki karakteri geriye alması gerekir. Eğer bu ".." daha karmaşık bir ifade olsaydı, ilk ". *" Bunu kolayca yapabilirdi * çok * daha yavaş. –
da ..... yanı
my $string = "1200";
substr $string, -2, 0, ':';
# $string => '12:00';
Substr() 'in okunması daha kolay ve daha sezgisel olarak daha hızlı ve daha hızlı olduğunu düşünürdüm. –
Daha sezgisel olanı yeterince iyi bilmiyorsanız daha sezgisel. – PEZ
bu bir sezgisel görünüyor ... neden bilmiyorum, ama bu csv dosyasında 20 ~ satırları oluşturdu ve sonra bir dökümü aldı ve bana bu hatayı verdi.. /test3 satır 237 dize dışında substr. - en iyi tahmin Verilerimde gerçekleşen ve kötü veri olmayan 0 değerine doğru koştu, sadece bir " – CheeseConQueso
Her zaman olduğu gibi, birden fazla yol var. Evet bir performans cezası var, ama aklıma gelen ilk kalıptı (evet, tabii ki aslında baştan çıkarıcı bir adamım) ve muhtemelen bu durumda yeterince hızlıdır, sence de öyle değil mi? :) – falstro
yeterince hızlıydı .. onun zaten gerçekten küçük bir betik ... ayrnieu'nun çözümü de çok çalıştı – CheeseConQueso
Konu hızlı olup olmadığı değil. Buradaki nokta, yeni gelenlerin ilk etapta $ & use kullanma alışkanlığına girmemesidir. – innaM