Help for this page

Select Code to Download


  1. or download this
    my @article =  ( 
                'author = {Author, J.P }' ,
    ...
    # to join all the edited elements will commas
    my $joined = join ",", @article;
    print $joined;
    
  2. or download this
    my $string = <<'STRING';
    @article{ 
    ...
        $open = '' if $open eq $_;
    }
    print $commaless;