|
안녕하십니까 ?
한입니다.
급히 여러분께 헬프를 요청해야 할 사항이 생겨서 말입니다.
아래는 벡터 포맷입니다.
9.000 XXX0000000000001000000011111111110000
현재 벡터가 시간과 그리고 벡터로 나누어져서 취급이 되고 있었요.
그래서 9.000과 XXX0000000000001000000011111111110000가 한개로
취급이 되고 있죠. 그런데 vector part에서 5번째 있는 넘을 바꾸려고 합니다.
숫자가 아닌 문자로, 그런데 언제나 타입이 XXX00가 아니라 앞과 뒤가 바뀌어서
5번째라고 지정을 해서 바꾸고 싶은데 어떻게 해야 할지 아이디어가 떠오르지 않아서..
고수들의 도움을 청합니다.
이상.
빠른 연락 바래요...
Best Regards.
James
내가 쓴 답:
#!/usr/bin/perl -U
local $aline = "9.000 XXX0000000000100010101011010110";
print "original:$aline\n";
my ($dtime,$data) = split(' ',$aline);
my @bit = split('',$data);
$bit[4] = 'L';
$data = join("",@bit);
$aline = join(" ",$dtime,$data);
print "modified:$aline\n";
0;
장정우씨 답:
#!/usr/local/bin/perl
open(FILE,"vector");
$change = "JJW";
while(<FILE>)
{
if(/(\S+)(\s+)(\S?\S?\S?\S?)(\S?)(\S+)/){
print $1,$2,$3,$change,$5,"\n";
}
}
|
|
