Thread Zurückcodieren von Zeichen (12 answers)
Opened by HP-User at 2012-06-17 17:42

topeg
 2012-06-18 00:49
#159104 #159104
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Diese Funktion wird benutzt wie chomp. Nur sie entfernt alle Zeilenumbrüche.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

sub rmbr(\[@$])
{
  my $r=shift;
  if(ref $r eq 'ARRAY')
  {
    s/(:?\x0D?\x0A|\x0D)+$//gs for @$r;
    s/(:?\x0D?\x0A|\x0D)+/ /gs for @$r;
    return 1;
  }
  $$r=~s/(:?\x0D?\x0A|\x0D)+$//gs;
  $$r=~s/(:?\x0D?\x0A|\x0D)+/ /gs;
  return 1;
}


Aufruf: rmbr(@array); oder rmbr($str);

Edit:

Bei dir wäre es:
Code (perl): (dl )
1
2
3
4
5
6
7

rmbr $customstorycode;
rmbr $headline;
rmbr $benutzergeschichte;
rmbr $zaehler;
rmbr $internetpost;
rmbr $tbgelesen;
rmbr $spamschutz;

Last edited: 2012-06-18 01:01:19 +0200 (CEST)

View full thread Zurückcodieren von Zeichen