| Gstreamer. GStreamer´Â GStreamer ¶óÀ̺귯¸®¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Gstreamer. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Torsten Schoenfeld and Brett Kosinski
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tsch/GStreamer-0.11/GStreamer.pm
Gstreamer. ű×
Gstreamer. ¼³¸í
GStreamer´Â GStreamer ¶óÀ̺귯¸®¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. GStreamer´Â GStreamer LibraryÀÇ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù .Snopsis Gstreamer -initÀ» »ç¿ëÇÕ´Ï´Ù. ³» $ loop = glib :: mainLoop -> new (); # $ PLAY = GSTREAMER :: ElementFactory -> make ( "playbin", "play"); $ PLAY -> SET (URI => GLIB :: FILENAME_TO_URI $ FILENAME_TO_URI $ FILENAME_TO_URI $ FILE "); $ play -> get_bus () -> add_watch (my_bus_callback, $ ·çÇÁ); $ play -> set_state ( "Àç»ý"); # $ ·çÇÁ ½ÇÇà -> ½ÇÇà (); # $ play -> set_state ( "null")¸¦ Á¤¸®ÇϽʽÿÀ. sub my_bus_callback {My ($ ¹ö½º, $ ¸Þ½ÃÁö, $ ·çÇÁ) = @_; if ($ ¸Þ½ÃÁö -> À¯Çü ¹× "¿À·ù") {WARN $ ¸Þ½ÃÁö -> ¿À·ù; $ ·çÇÁ -> quit (); } ELSIF ($ ¸Þ½ÃÁö -> À¯Çü ¹× "EOS") {$ ·çÇÁ -> quit (); } # Å¥¿¡¼ ¸Þ½ÃÁö Á¦°Å TRUE¸¦ ¹ÝȯÇÕ´Ï´Ù. } ¿ä±¸ »çÇ× : ¡¤ Perl.
Gstreamer. °ü·Ã ¼ÒÇÁÆ®¿þ¾î