Sto cercando di trovare un modo per inserire due punti (:) in una stringa, due caratteri dalla fine della stringa.Come inserisco i due punti in una stringa di due caratteri dalla fine usando Perl?
Esempi di $ meetdays:
1200 => 12:00
900 => 09:00
1340 => 13:40
Non sono sicuro se questo dovrebbe essere un'espressione regolare o solo un'altra funzione che ho non ne sono consapevole
s/(?=..$)/:/
Non utilizzare il suggerimento di uova di $&. perldoc perlvar:
L'utilizzo di questa variabile in un punto qualsiasi di un programma impone una notevole riduzione delle prestazioni su tutte le corrispondenze di espressioni regolari. Vedi "BUG".
Si potrebbe provare questo:
s/..$/:$&/
Si abbina due caratteri alla fine della stringa, e lo sostituisce con i due punti, e la stringa corrispondente (vale a dire i due personaggi).
MODIFICA
Risolto back-end perl equivalente perl.
ok grazie ... sì stavo per dire che non funzionava – CheeseConQueso
bello .. non v'è – CheeseConQueso
Ok, quindi isn' t l'espressione più ottimizzata, ma è facile da capire e fa il trucco, come è stato inutile (come in downvote)? Non sta svalutando la risposta migliore nel modo SO? – falstro
The Perl equivalente di sed & è $ &, quindi dovrebbe essere: risposta
$s = s /..$/:$&/s;
di uova "opere", ma la sua espressione regolare piuttosto inobvious.
avrei più andare per
s/(^.*)(..$)/$1:$2/
perché ho appena amore backrefs.
La sua esagerazione per quello che stai facendo, ma per me è più semanticamente espressivo.
la prima cattura è un po 'sprecata, perché non semplicemente s /(..$)/:$ 1 /? – user55400
Anche se la prima parte è veramente ridondante, è molto più leggibile. (Almeno al modo in cui analizzo la regex) –
+1 blixtor. @Kent: anche se in questo caso non fa alcuna differenza pratica, la tua risposta originale è più lenta dal momento che Perl dovrà tornare indietro di due caratteri per abbinare il finale "..". Se quella ".." era un'espressione più complicata, l'iniziale ". *" Poteva facilmente renderlo * molto * più lento. –
È inoltre possibile utilizzare così .....
my $string = "1200";
substr $string, -2, 0, ':';
# $string => '12:00';
Immagino che il substr() sia significativamente più veloce e più facile da leggere e più intuitivo. –
Più intuitivo solo se non si conosce la regex abbastanza bene. – PEZ
questo sembra intuitivo ... non so perché, ma ha creato 20 ~ linee nel file csv e poi ha preso un dump e mi ha dato questo errore ... substr esterno di stringa in ./test3 riga 237. - La mia migliore ipotesi è che ha avuto un valore pari a 0, che si verifica nei miei dati e non è un dato errato, implica semplicemente un evento diff – CheeseConQueso
Come sempre, ci sono più di un modo. C'è una penalità per le prestazioni sì, ma è stato il primo modello che mi è venuto in mente (sì, sono un ragazzo sed originario ovviamente), ed è probabilmente abbastanza veloce in questo caso, non credi? :) – falstro
era abbastanza veloce .. è comunque una piccola sceneggiatura ... la soluzione di ayrnieu funzionava troppo – CheeseConQueso
Il punto non è se è veloce o meno. Il punto è che i nuovi arrivati non dovrebbero prendere l'abitudine di usare $ & in primo luogo. – innaM