perl

하위 프로세스의 출력을 캡처하는 방법은 무엇입니까?
perl

하위 프로세스의 출력을 캡처하는 방법은 무엇입니까?

sftp에 대한 비밀번호 프롬프트를 잡으려고 하는데 STDIN이나 STDERR에서 나오지 않습니다. 하위 프로세스에서 발생할 수 있습니다. 아래는 내 테스트입니다. 비밀번호 프롬프트를 파일로 리디렉션해 보았습니다. 파일 핸들 번호 1~4를 시도해 보았습니다. 그러나 성공하지 못했습니다. mypc:/home/myname$ sftp localhost >/tmp/junk myname@localhost's password: mypc:/home/myname$ sftp localhost 2>/tmp...

Admin

awk: 첫 번째 열을 기준으로 정렬한 다음 두 번째 열만 출력하고 두 번째 열은 모두 출력합니다.
perl

awk: 첫 번째 열을 기준으로 정렬한 다음 두 번째 열만 출력하고 두 번째 열은 모두 출력합니다.

다음과 같이 만들 수 있는 두 개의 열 파일이 있습니다. cat > twocol << EOF 007 03 001 03 003 01 137 12 001 11 002 01 002 02 002 03 001 02 002 04 137 94 010 21 001 01 EOF 생성된 파일에는 twocol수직선만 포함되어 있습니다. 원하는 결과 twocol어떤 종류의 명령을 실행 하고 다음 결과를 얻고 싶습니다 . (다소 혼란스러운 질문 제목을 다시 설명하는 것보다 보는 것이 훨씬 낫다고 생각합니...

Admin

임계값보다 작은 숫자로 가장 긴 일련의 줄을 인쇄하는 방법은 무엇입니까?
perl

임계값보다 작은 숫자로 가장 긴 일련의 줄을 인쇄하는 방법은 무엇입니까?

저는 Perl을 배우고 있지만 이 문제를 해결하는 방법을 모르겠습니다. .txt다음 형식의 파일이 있습니다 . 1 16.3346384 2 11.43483 3 1.19819 4 1.1113829 5 1.0953443 6 1.9458343 7 1.345645 8 1.3847385794 9 1.3534344 10 2.1117454 11 1.17465 12 1.4587485 첫 번째 열에는 줄 번호만 포함되어 있으며 여기서는 관심이 없지만 두 번째 열의 값은 관련 부분입니다. 두 번째 열에 2.00보다 작...

Admin

Emacs(셸)에서 `perldoc`을 사용하는 방법은 무엇입니까?
perl

Emacs(셸)에서 `perldoc`을 사용하는 방법은 무엇입니까?

Emacs로 프로그래밍할 때 맨페이지를 자주 참조하게 됩니다. 내 환경은 SSH를 통한 텍스트 기반 Emacs입니다. man명령(함수)을 사용하여 Emacs에서 "일반" 매뉴얼 페이지를 열 수 있지만 Emacs에서 Perl POD 문서를 사용하는 (man MAN-ARGS)방법을 알고 싶습니다 . ( 함수) 에서 실행할 때 (예: ), 메시지를 받으세요 설명:perldocperldoc -f packshell(shell &optional BUFFER) 경고: 터미널이 완전히 작동하지 않습니다. ...

Admin

콘텐츠 검색 및 바꾸기
perl

콘텐츠 검색 및 바꾸기

PIN A 1 1:3 0:8 0 0:0 PIN B 1 1:0 0 0:0 Z Z:0 PIN C 1 1:3 0:8 0 0:0 Z Z:0 PIN B에는 영향을 주지 않고 PIN A와 PIN C의 내용만 변경하고 싶습니다. 0 0:3 Z 0:3 일반 검색 및 바꾸기 방법을 사용하여 PIN B의 내용에 영향을 주지 않고 바꾸는 방법을 찾을 수 없는 것 같습니다. perl -i -pe 's/0:0/0:3/g;' text perl -i -pe 's/Z:0/Z:3/g;' text 원하는 출력: PIN A ...

Admin

sed 변경 사항 + 해당 perl 구문 보고
perl

sed 변경 사항 + 해당 perl 구문 보고

Linux 및 Perl을 배우는 초보자: (a) 대체 문자열을 검색하고, (b) 파일 이름 패턴을 일치시키고 싶습니다..myfile., (c) 하위 디렉토리에서 재귀적으로 검색하고, (d) 줄 번호, 파일 이름, 원래 줄 및 변경된 줄을 인쇄합니다. sed나는 사용하는 버전 과 구문을 모두 찾고 있습니다 perl. 나는 여기서 출발점을 찾았다질문하지만: 첫째: sed 필수: 패턴 일치 구문 추가.myfile., 재귀적으로 검색하고, 줄 번호를 인쇄하고 제거합니다. w /dev/fd/2-- 무슨 일을 ...

Admin

군집 분석을 위해 PDL 사용 시작 PDL::Stats::Kmeans
perl

군집 분석을 위해 PDL 사용 시작 PDL::Stats::Kmeans

첫 번째 질문은 "펄 데이터 언어가 죽었나요?"입니다. 활발한 토론이나 사용자 Q&A를 찾지 못했습니다. 더 나은 태그를 지정하지 않아서 죄송합니다. 담당자가 없습니다.' 내 문제 영역은 전원 스위칭 이벤트를 분석하고 반응성 및 저항성 부하의 판독값을 다시 연결하여 공장 하드웨어의 특정 항목을 가리키는 것입니다. 그래서 클러스터 분석을 생각하고 PDL로 옮겼습니다. 내가 쓴 Perl 스크립트에서 use PDL::Stats::KMeans; my $sql = "select resistv_chg,r...

Admin

두 번째 패턴에 고유한 두 패턴 사이의 모든 선을 찾으시겠습니까?
perl

두 번째 패턴에 고유한 두 패턴 사이의 모든 선을 찾으시겠습니까?

아래에 나열된 파일이 있다고 생각해 보세요. 정규식 패턴의 각 인스턴스에서 모든 Word A행을 선택해야 합니다.앞으로정규식 패턴 Word D. Word A Word B Word C Word D Word E Word F Word G Word A Word H Word I Word D Word J Word A Word K Word D Word L Word M Word A Word D A와 사이의 줄 수는 다양합니다 D. 때로는 D다음 줄입니다. 이것은 내가 필요한 출력입니다. Word A Word B ...

Admin

Perl의 `kill`은 예상치 못한 `$! == Errno::EINTR`을 사용합니다.
perl

Perl의 `kill`은 예상치 못한 `$! == Errno::EINTR`을 사용합니다.

TCP 연결을 처리하기 위해 하위 프로세스를 포크하는 네트워크 데몬을 작성했습니다. SIGINT기본 프로세스 의 각 하위 프로세스에 대해 하나씩 트리거하여 kill일부 최종 통계를 정리하고 수집합니다. 거의 모든 경우에 잘 작동하며 하위 프로세스가 매우 빠르게 종료됩니다. 그러나 때로는 하위 프로세스가 짧은 시간 초과(예: 5초) 내에 종료를 거부하는 경우도 있습니다. 당시 무슨 일이 있었는지 전혀 모르므로 상황을 진단하기 위해 자세한 출력을 추가했습니다. netcat연결을 열고 프로세스를 일시 중지...

Admin

ARGV[]는 매개변수를 허용하지 않습니다.
perl

ARGV[]는 매개변수를 허용하지 않습니다.

매개변수를 전달하려고 하는 쉘 스크립트가 있는데 스크립트에서 빈 출력이 표시됩니다 date.ARGV[1] 이것은 명령입니다: #!/bin/bash dt=$(date -d "yesterday" '+%m%d%Y') cat /tmp/log.$AUTOSERVE.$dt \ | perl -ne '/STATUS:\s+(\w+).+MACHINE:\s+(\w+.\w+.\w+)$/ && print join( "\t", $1, $2 ). "\n"' \ | grep -E '(SUCCESS|FAILUR...

Admin

TCP 연결을 수락하기 전에 피어 주소를 확인할 수 있습니까?
perl

TCP 연결을 수락하기 전에 피어 주소를 확인할 수 있습니까?

나는 TCP 포트/소켓을 수신하고 연결을 받아들이는 간단한 Perl 서버를 작성했습니다. 이제 나는 알고 싶습니다: 주소 기반 접근 제어를 구현하려는 경우 연결을 수락하기 전에 연결을 요청하는 피어의 주소를 확인할 수 있습니까? 가능하다면 연결을 수락하고 즉시 다시 닫는 대신 연결 요청을 거부할 수 있습니다(희망합니다). ...

Admin

bash + 특정 경로 아래의 폴더가 숫자로 끝나는지 확인하는 방법
perl

bash + 특정 경로 아래의 폴더가 숫자로 끝나는지 확인하는 방법

/var/kafka폴더 아래의 모든 폴더가 숫자로 끝나는 지 확인하고 싶습니다 . 그렇지 않으면 오류가 발생하여 종료됩니다. ls -ltr /var/kafka drwxr-xr-x 399 kafka kafka 28672 Nov 9 13:10 data6 drwxr-xr-x 392 kafka kafka 28672 Nov 9 13:10 data5 drwxr-xr-x 391 kafka kafka 28672 Nov 9 13:10 data1 drwxr-xr-x 405 kafka kafka 28672 Nov...

Admin

이름 바꾸기 - 파일 이름의 [ ] 구분 부분을 파일 이름 끝으로 이동합니다.
perl

이름 바꾸기 - 파일 이름의 [ ] 구분 부분을 파일 이름 끝으로 이동합니다.

나는 cygwin에서 이름 바꾸기 도구의 Perl 구현을 가지고 놀았고 마침내 cpan에서 설치하여 작동하게 만들었습니다. 나는 오랫동안 이 작업을 수행하지 않았기 때문에 정규식 작업에 약간 녹슬었습니다. 기본적으로 양식 폴더의 이름을 바꾸고 싶습니다. [2022-10-10] This is a Test - This is a Test (some stuff) [393933939339] 또는 [2022] This is a Test - This is a Test (some stuff) [3939339393...

Admin