Term :: Transkeys.

특수 키에 응답하는 동안 입력을 읽는 방법
지금 다운로드

Term :: Transkeys. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Chad Granum
  • 게시자 웹사이트:
  • http://search.cpan.org/~exodist/

Term :: Transkeys. 태그


Term :: Transkeys. 설명

특수 키에 응답하는 동안 입력을 읽는 방법 Term :: Transkeys는 특별한 키에 응답하는 동안 텍스트 입력을 읽는 방법을 제공하는 Perl 모듈입니다 .Snopsis 사용 기간 :: Transkeys; 내 $ listener = term :: transkeys-> new (action => { '=> sub {... f1 키를 누를 때 뭔가 수행)}); # Term :: 화면은 예제에서 사용 된 요구 사항이 아닙니다. 용어 :: 화면; 내 $ scr = 새로운 용어 :: 화면; $ scr-> clrscr; 동안 (1) {#tion 내 $ line의 입력 라인을 유지할 수 있습니다. # 0.01 간격으로 입력, 비 차단 IO, 루프의 완전한 라인을 가질 때까지 버퍼를 인쇄하십시오. while (정의되지 않음 ($ line = $ listener-> ActionRead (mode => 0.01))) {# 프롬프트 내 $ prompt = "입력"; "; # 버퍼에서 현재 위치 (오른쪽에서)를 인쇄하십시오. $ scr-> at (15, 0) -> clreol-> puts ($ listener-> bufferposition); # 지금까지 입력 된 텍스트뿐만 아니라 프롬프트를 표시하십시오. $ scr-> at (10,0) -> clreol-> puts ( "입력 :". $ listener-> bufferString); # 커서를 텍스트 텍스트의 TRUR 위치로 이동 $ scr-> at (10, $ listener-> bufferPosition + 길이 ($ 프롬프트)); } # 새 완성 된 줄을 가질 때 : # * 화면 상단의 선을 삭제하고 다른 줄을 움직입니다. # * 행 9에서 새 줄을 출력합니다. Chomp ($ line); $ scr-> at (0,0) -> DL; $ scr-> at (9,0) -> clreol-> puts ($ line); $ LINE EQ 'EXIT'인 경우 출구 (0); } 요구 사항 : · Perl.


Term :: Transkeys. 관련 소프트웨어

회사 소개