use Perl

• Re (Score:1)

  by clscott (4354)

  Wouldn't that be =. ?
  
$x .= $y # $x eq "$x$y"
$x =. $y # $x eq "$y$x"

  
  • Re:Re (Score:3, Insightful)

    by gav (2710)

    You can't have =. for cases such as $x =.1 which is a shame.
• Source Filters? (Score:3, Insightful)

  by KM (4) on 2003.09.03 22:56 (#23826) Journal

  Filter done in 2 minutes.. may not always work :-)
  
  package Foo;
  
  use Filter::Util::Call;
  sub import {
    my ($type) = @_ ;
    my $ref = [] ;
    filter_add(bless $ref) ;
  }
  
  sub filter {
    my ($self) = @_ ;
    my $status = filter_read();
  
    if (/\s+=.\s+/) {
      s!^(\$[[:alnum:]_]+)\s+=.\s+(\$[[:alnum:]_]+)!$1 = $2 . $1!;
    }
  
    $status;
  }
  
  1;
  
  Script:
  
  use Foo;
  
  my $foo = " World";
  my $bar = "Hello";
  
  $foo =. $bar;
  print $foo . "\n";
  
  $zog =.1;
  print $zog;

  Reply to This