;;;; ändern zu ;1;1;1;1 - #118446 (Allgemeines zu Perl)

Linuxer

2009-01-28 20:36

User since
2006-01-27
3881 Artikel
HausmeisterIn

user image

Hi,

meine Vorschläge:

zu 1.

Code (perl): (dl )

#! /usr/bin/perl -l
use strict;
use warnings;

while ( <DATA> ) {
  chomp;
  # nur anwenden, wenn die Zeile nur aus ';' besteht
  $_ = join( 1, split // ) if ( m/\A;+\z/ );

  print $_;  # beachte Option -l
}

zu 2.

Code (perl): (dl )

s{(;)(;)}{${1}1${2}}g;

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!