심심해서 해본 쉘스크립트 문자열 찾기.

[킹갓vim(59.23)]

2.txt 의 내용

man

man

man


dog

dog

dog

dog


girl

girl

girl

girl

girl

=======================================

본격 배시 쉘 스크립트 액숀활극

=======================================

#!/bin/bash

echo $"찾을 문자열을 입력하세요";

read ipt

RSTS=`grep -io "$ipt" 2.txt | wc -l`;

echo $"찾은 문자열 $RSTS 개";

echo $""
echo $""

echo $"상세보기";

echo `grep -io "$ipt" 2.txt`;

=====================================

별책부록  [perl 버전]

=====================================

#!/usr/bin/env perl

#perl 도 그냥 리눅스에 깔려 있으니깐 복붙해 걍

$ipt = <STDIN>;

chomp($ipt); #이바리 따기 즉 딸려오는 개행문자 삭제

@lines = `grep -io "$ipt" 2.txt | wc -l`;
foreach (@lines) {
    s/w<([^>]+)>/U$1/g;
    print;
}

간만에 심심해서 코딩질좀 해봤습니다.

우선 이 영광을 저를 곱게보건 안곱게 보건 항상 짜증스러운 얼굴로 봐주시는 프개럴 여러분들께 돌리구요..

그리고 저와 늘 함께 하시는 Perl 느님께 감사 드립니다..