Report Perl

  1. Home
  2. Perl
  3. Report
  4. Split a long field over multiple lines
#!/usr/local/bin/perl -w
    while ()
    {
        chomp;
        ($number,$type,$name,$price,$desc) = split (/\|/);
        write;
    }
    format STDOUT =
    @>>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.##
    ^<<<<<<<<<<<<<<<<<<<<<<<<<
    $,,$number,$type,$name,$price,$desc
    ~                                            ^<<<<<<<<<<<<<<<<<<<<<<<<<
    $desc
    ~                                            ^<<<<<<<<<<<<<<<<<<<<<<<<<
    $desc
    .