regexp

[ka at mayten.sch.bme.hu]

On 2015-10-08 13:52, FL wrote:
> VARCHAR2[20]coinascioascasconasocin a
> ascioasocnasiocnoacm.c,.ésa.ccs.aé.cé...as..é é.cs.éaé. VARCHAR
> 2[50]sdubvudsb sdb ubivvsdbbbisudm,,dvsdi VARCHAR2[40]
> 
> ami nem sorokból áll, hanem egybefüggő, a VARCHAR-ben levő
> számokat felszorozzam 2-vel és kicserélje?
> 

csak awk jo, perl nem?  awk-val is tuti meg lehet csinalni de ahhoz nem 
ertek, perl-ben valami olyasmit csinalnek, hogy

// file muveletek, file pointerek
while ($row = <FILEIN>)
  chomp ($row);
  $row =~ m/.*VARCHAR\[([0-9]+)\]/;
  $1 =* 2;
  $row =~ s/.*VARCHAR\[[0-9]+\]/VARCHAR\[$1\]/;
  print FILEOUT $row;
}

most igy elsore nem allitom, hogy helyes, sot, de valami ilyesmi uton 
indulnek el.

udv
adam