bash shell과 perl 관련 질문입니다 :)

!/usr/bin/perl
use DBI;
use Time::Local;
 
$database = "gg";
$user = "tj";
$password = "gg";
$option = "000.000.000.00";
 
$dsn = "DBI:mysql:$database";
$dsn = "DBI:mysql:database=$database;$option";
$dbh = DBI->connect($dsn, $user, $password);
 
open FP, ">", "symout.txt" or die "$!\n";
my $sql=$dbh->prepare("SELECT UserName, password, realname, expiration, station, subject, profid, ssid_group_name, e$
 
     my $rowcount = $sql->execute;
     while ( @row = $sql->fetchrow_array() ) {
            my $UserName = $row[0];
            my $password = $row[1];
            my $realname = $row[2];
            my $expiration = $row[3];
            my $station = $row[4];
            my $subject = $row[5];
            my $profid = $row[6];
            my $ssid_group_name = $row[7];
            my $enableuser= $row[8];
 
     print FP "$UserName:$password:$realname:$expiration:$station:$subject:$profid:$ssid_group_name:$enableuser\n";
     } close FP;
 
$sql->finish;
$dbh->disconnect();
exit 1;

결과값
------------ cat symout.txt -------------
user:123456789:test:0000-00-00 00:00:00:NO:NO:1:default:1

#!/usr/bin/perl
use DBI;
use Time::Local;
 
$database = "gg";
$user = "root";
$password = "hh";
$option = "localhost";
 
$dsn = "DBI:mysql:$database";
$dsn = "DBI:mysql:database=$database;$option";
$dbh = DBI->connect($dsn, $user, $password);
 
# 파일 떨구기.
open FP, ">", "symout.txt" or die "$!\n";
 
 
#요 사이에 shell도 한번에 작동시킬 수 있는 코드 넣어야할 것 같다...
my $sql = $dbh->prepare("SELECT type, model, serial_no, order_user, order_date, send_user, send_date, last_client, i$
my $rowcount = $sql->execute;
while ( @row = $sql->fetchrow_array() )
        {
                my $type = $row[0];
                my $model = $row[1];
                my $serial_no = $row[2];
                my $order_user = $row[3];
                my $order_date = $row[4];
                my $send_user = $row[5];
                my $send_date = $row[6];
                my $last_client = $row[7];
                my $installation_locate = $row[8];
                my $info = $row[9];
 
                print FH "$type:$model:$serial_no:$order_user:$order_date:$send_user
                         :$send_date:$last_client:$installation_locate:$info\n";
        }
        close FH;
 
$sql->finish;  $dbh->disconnect();
exit 1;

#!/bin/bash
cat symout.txt | while read line
do
      echo $line
done